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CHAPTER  1 


Introduction 

1.1  Objectives 

This  dissertation  describes  a new  approach  to  the 
development  of  software  needed  at  different  staqes  of  model 
building  and  simulation  applications.  It  uses  the  computer 
itself  to  automatically  generate  ad-hoc  application 
proqrams,  based  on  a descriotion  qiven  in  a high  level 
non-procedural  language.  A non-procedural  soecif ication 
uses  the  language  of  mathematics  in  the  sense  that  its 
statements  denote  either  assertions,  which  can  be  considered 
as  identities  or  equations  based  in  mathematical  or  logical 
relationships,  or  data  declarations.  Therefore  a 
description  does  not  include  step  by  step  computat iona 1 
instructions  or  control  statements,  nor  does  it  contains 
references  to  the  concept  of  memory  assignments,  as  it  is 
customary  in  programming  languages.  The  user  is  required  to 
describe  the  structure  of  his  input  and  output  data, 
together  with  the  functional  and  logical  relationshios 
existing  between  them.  These  declarative  expressions  can 
occur  in  any  order,  and  in  essence  they  represent  directly 
the  structure  of  the  model  or  system  being  specified,  in  a 
readable  mathematica-1  notation  which  does  not  require 
further  translation  or  interpretation  by  the  user.  The 
automatic  program  generator  is  tolerant,  in  the  sense  that 
it  analyzes  a given  specification  for  omissions, 
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inconsistencies  and  incompleteness,  attempts  to 
automatically  correct  some  of  the  misspecif icat ions  or 
report  to  the  user  to  obtain  further  information  until  a 
successful  and  complete  description  is  qenerated. 

The  most  important  advantages  in  usinq  the  systen 
reported  in  this  dissertation  is  the  ease  in  inteqration  and 
expansion  of  specified  models. 

The  general  objectives  of  this  work  were  then  to  use  and 
extend  the  latest  automatic  program  generation  techniques  in 
order  to  reduce  the  cost  and  computer  oriented  skills 
required  to  employ  the  modeling  methodology.  In  doing  so,  a 
number  of  novel  and  useful  features  have  been  produced  that 
contribute  to  a broader  class  of  applications  in  which 
knowledge  of  mathematics  and  logic  becomes  sufficient,  as 
opposed  to  the  cuirent  demand  of  comouter  programming 
knowledge  as  well.  New  algorithms  and  techniques  were  also 
develooed  that  enhanced  the  automatic  generation  of  computer 
programs . 

The  goals  of  this  research  can  be  summarized  as  follows: 

1)  To  develop  a qeneral  non-procedura 1 language  and 
its  processor  which  could  act  as  the  foundation  for 
a broad  class  of  applications  requiring  the 
generation  of  ad-hoc  computer  programs  for  use  at 
different  stages  of  model  development. 


2)  To  design  the  system  with  the  concepts  of 
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"sharing”  and  “integrability"  of  both  data  and 
computational  description  of  processes,  which  could 
permit  the  communication  and  integration  of 
individual  models  at  a high  descriptive  level. 

3)  Efficiency  of  the  system  and  openness  to 
innovations . 

These  very  general  overall  objectives  encompass  a 
variety  of  new  concepts  not  found  in  othei  computer  modeling 
facilities.  First  it  implies  the  use  of  a declarative 
language  with  standard  mathematical  notation,  for 
non-procedural  specifications  of  models.  Programming 
languages  in  contrast  contain  non mathematical  features  such 
as  transfer  and  assignment  statements.  The  language  of 
mathematics  is  familiar  to  model  builder^  since  it  is  used 
to  describe  the  models,  therefore  it  is  convenient  to  employ 
an  isomorphic  description  for  computer  processing.  Second, 
•the  processor  of  the  system  is  similar  to  a high  level 
compiler  whose  object  code  is  a computer  program  written  in 
a suitable  high  level  orogramming  language  (PL/1) . 
Therefore  the  computer  itself  is  used  directly  as  a "oroqram 
writer",  in  a sense  replacing  the  aoplication  programmer 
interface  with  the  consequent  reduction  of  errors  due  to  tne 
communication  and  programming  of  the  process.  Also,  since 
the  required  proqrams  are  generated  in  a hiqh  level 
programming  language,  these  can  be  processed  by  any  other 
facility  possesing  a compiler  for  such  object  code. 
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Therefore  the  generated  modules  ate  transportable. 

1.2  General  Background 

With  the  widespread  use  of  computer  models  in  economic 
studies,  engineering,  biological  and  social  sciences,  it  is 
increasingly  important  to  develop  appropriate  software  tools 
and  techniques  to  facilitate  the  application  of  this 
methodology.  The  formulation,  simulation,  refinement  and 
exoer imentation  ohases  in  the  development  of  comolex  systems 
should  be  performed  without  undue  restrictions,  in  an 
adequate  time  frame  and  at  a reasonable  cost  to  be 
effective.  However,  in  spite  of  recent  advances  in  computer 
hardware  technology,  which  makes  possible  the  processing  of 
larger  and  more  complex  models  quickly  and  accurately,  the 
main  factors  affecting  the  use  of  computers  by  model 
builders  still  remain  as  follows: 

1 - The  cost  of  describing  the  model  and  associated  solution 

procedures  in  a computer  language.  This  task  is  usually 
handled  by  an  application  Programmer,  unless  the  host 
languaqe  is  a special  purpose  modelinq  language  oriented 
to  the  user  particular  application. 

2 - The  cost  of  formatting  and  introducing  the  input  data 

required  for  the  problem  solution  into  the  system.  In 
some  cases  this  task  can  be  performed  by  clerical  staff 
who  can  keypunch  or  tyoe  the  data  directly  into  the 
system.  However  in  many  instances  input  data  originate 
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from  different  sources  and  may  be  received  in  different 
formats,  sometimes  requiring  a more  complicate 
translation  process,  and  again  the  need  for  expertise  in 
computer  programming. 

The  cost  of  maintaining  the  system.  Model  building  is  a 
dynamic  activity  which  reouires  constant  revisions  and 
updates  of  both  the  structure  of  the  models  and  their 
data.  Normally  the  host  software  system  will  provide 
the  necessary  tools  which  allow  the  user  himself  (the 
model  builder)  to  maintain  his  model.  However  it  is 
usually  necessary  to  be  familiar  with  computer  processes 
for  this  activity,  and  often  the  host  system  itself 
require  modifications  for  handling  exceptions  such  as 
new  solution  or  estimation  techniques,  or  experiments 
not  in  the  original  discourse  of  the  host  language. 
Depending  uoon  the  complexity  of  the  host  modeling 
system  this  process  may  require  an  application 
programmer  or  a team  of  system  programmers. 

The  cost  of  actually  running  or  executing  the  required 
process  (transformation,  estimation,  simulation)  by  the 
computer.  This  stage  requites  practically  no  human 
intervention  and  will  depend  on  both  hardware 
configuration  at  hand  and  efficiency  of  the  host  system 
and  solution  procedures. 

Finally  , consideration  must  also  be  qiven  to  the  costs 
involved  when  testing  and  debugging  a model. 
Considerable  time  and  expertise  are  devoted  to  this 


6 


stage  analyzing  the  orogtam  logic,  the  model 
specifications,  etc..  The  larger  and  more  complex  the 
models,  the  more  difficult  it  is  to  trace  faults,  both 
in  the  program  logic  and  in  the  model  specifications  and 
interactions. 

Various  computer  modeling  systems  have  been  developed 
recently  that  facilitate  the  interface  between  model 
builders  and  computers  at  different  stages  of  the  process. 
In  general,  the  "best"  system  for  a particular  application 
will  depend  on  user  needs  and  considerations  about  the  cost 
factors  mentioned  before,  as  well  as  availability,  ease  of 
learning,  etc..  However,  as  the  survey  in  Chapter  2 will 
show,  despite  the  overall  improvements  these  facilities 
provide,  they  are  far  from  solving  a number  of  problems 
imposed  by  the  use  of  larger  and  increasingly  complex 
models. 

As  systems  increase  in  size,  data  management  becomes  a 
major  undertaking  requiring  the  manipulation  of  more 
complicated  data  structures.  Modeling  languages  on  the 
other  hand,  impose  a rigid  structure  and  organization  to  the 
user,  leaving  only  high  level  programming  languages 
possesing  data  description  capabilities,  such  as  PL/1  or 
COBOL,  to  handle  those  cases.  This  situation  forces  the 
user  to  interface  with  middle  level  application  programmers 
to  develop  and  maintain  the  host  system  and  his  model. 
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Another  major  problem  is  the  lack  of  generality  found  in 
most  modeling  systems  to  handle  new  situations  without  a 
major  programming  overhaul.  Recent  developments  show  the 
need  to  integrate  independently  builded  models.  For 
instance  in  economics,  the  sy terns  that  are  being  modeled  do 
not  stand  alone,  and  regional  or  world  wide  integration  of 
existing  models  is  becoming  necessary.  Due  to  the 
complexity  of  the  methodology,  the  exchange  and  interface  of 
models  from  different  originations  amongst  developers  has 
led  to  misunderstandings  and  difficulties  in  the  process. 

1.3  The  Approach 

Towards  the  proposed  objectives,  this  dissertation  has 
contributed  in  the  design  and  implementation  of  a 
non-procedural  Module  Description  Language,  MODEL,  and  its 
processor.  The  system  development  was  carried  out  in 
cooperation  with  the  Automatic  Program  Generation  group  at 
the  Moore  School.  The  research  reported  herein  expanded  the 
language  to  satisfy  the  proposed  goals  and  implemented  the 
necessary  additions  to  the  MODEL  processor  which  permits  the 
specifications  of  models  and  their  associated  solution 
methods.  The  Automatic  Program  Generation  group  was 
responsible  for  implementing  the  core  of  the  system, 
particularly  in  relation  to  extended  capabilities  to 
generate  additional  program  structures  and  methods  of 
optimization,  and  of  improving  the  man/machine  interface  to 
decrease  the  manual  labor  and  skills  required  to  enter  a 
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given  specification  [SHA  78,  MOT  77]. 

The  MODEL  language  permits  the  user  to  specify  his  model 
i and  associated  data  and  solution  methods  by  a set  of 

declarative  or  descriptive  statements.  The  specification 
consists  of  the  following  types  of  statements: 

- Module  Description 

- Data  Description 

- Assertions 

The  statements  in  the  "Module  Description"  section 
identifies  a particular  model  and  the  associated  input  or 
"source"  files,  as  well  as  the  desired  output  or  "target" 
files.  This  section  may  also  include  references  to  other 
data  or  computational  descriptions  previously  stored  in  the 
MODEL  "data  base",  thus  allowing  the  sharing  of  complete  or 
partial  specifications.  The  "Data  Description*  statements 
declare  the  structure,  type  and  organization  of  data  items 
in  each  file.  Finally  the  "Assertions"  describe  various 
types  of  data  interrelationships. 

The  statements  consist  of  independent  descriptions  that 
can  be  submitted  in  any  order.  This  allows  the  user  to 
build  a given  specification  modularly,  with  the  declarations 
added  as  they  become  available.  There  are  no  control 
structures  in  the  language,  since  the  sequencing  and  control 
logic  of  the  object  program  is  deduced  automatically  by  the 
processor.  Nor  it  is  possible  to  specify  computer  concepts 
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such  as  countinq,  input-output  commands,  control  code, 
memory  assignments  or  other  typical  computer  programming 
concepts. 

Since  MODEL  deals  only  with  information  concepts  and 
relationships,  it  is  application  independent,  containing 
only  computer  programming  "knowledge".  Therefore,  it  should 
be  possible  to  extend  its  domain  to  a broader  spectrum  of 
applications. 

The  use  and  components  of  the  MODEL  language  are 
explained  in  detail  in  Chapter  3. 

The  MODEL  processor  takes  the  specification  of  a module 
in  the  MODEL  language,  and  performs  the  following  tasks: 

(1)  Syntax  Analysis  - In  this  first  phase  the  given 
specification  is  analyzed,  one  statement  at  a time, 
to  detect  syntactic  errors  and  some  semantic 
problems.  After  successful  analysis  the  statements 
are  stored  in  a simulated  associative  memory  for 
ease  in  later  retrieval  and  analysis. 

(2)  Determination  of  Precedence  Relationships  - The 
unordered  statements  in  the  associative  memory  are 
analyzed  to  determine  precedence  relationships 
between  each  data  name  used  in  the  specification. 

The  relationships  are  used  to  construct  a precedence 
graph  to  be  used  in  subsequent  analysis  for 
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completeness  and  correcteness  of  the  specification 
and  for  sequencing  before  the  generation  of  the 
object  code. 

(3)  Analysis  of  the  Directed  Graph  - In  this  phase 
the  graph  is  analyzed  for  inconsistencies, 
incompleteness  or  cycles.  During  this  phase  the 
processor  endeavors  to  modify  redundant  or  ambiguous 
statements,  or  to  compose  missing  descriptions  using 
the  information  at  hand  and  default  parameters.  If 
necessary  it  solicits  from  the  specifier  additional 
information  or  modification  of  his  specification. 
The  cyles  analysis  stage  is  one  of  the  contributions 
of  this  dissertation  that  permits  the  efficient 
solution  of  large  scale  simultaneous  equation 
models.  Essentially  the  graph  representation  of  a 
given  specification  should  not  contain  circular 
definitions  or  cycles  for  proper  sequencing,  unless 
they  are  part  of  a simultaneous  equation  system 
which  can  be  interpreted  as  recursive  blocks 
requiring  iterative  solution  techniques.  The  cycles 
processor  therefore  analyzes  the  graph  for  cycles 
and  proceeds  either  to  combine  nodes  corresponding 
to  simultaneous  equations  for  later  solution,  or 
gives  the  user  an  error  message  and  ask  him  to  open 
the  existing  loops  in  the  specification.  Large 
scale  models  can  use  the  cycles  processor  to 
automatically  partition  (decompose)  the 
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specification  into  its  block  recursive  components 
for  both  efficient  solution,  and  for  a better 
understanding  of  the  interrelationships  between 
elements  of  the  model.  Chapter  5 explain  in  detail 
this  component  of  the  processor. 

(4)  Documentation  - This  phase  generates  some 
reports  from  the  analysis  of  the  MODEL 
specification;  a cross-reference  table  of  all  names 
provided  by  the  user  and  a complete  (possibly 
augmented  or  modified)  formatted  MODEL  specification 
of  the  problem.  This  clean  copy  is  also  saved  in  a 
MODEL  statement  library  for  later  reference. 

(5)  Sequencing  - The  MODEL  statements  are  ordered 
using  standard  topological  sorting  algorithms  as 
applied  to  the  directed  acyclic  graph  representation 
of  the  problem  specification.  A flow-chart  like 
report  is  generated  representing  the  control  logic 
of  the  module. 

(6)  Code  Generation  - Using  the  flow-chart  entries, 
the  program  for  the  module  is  generated  in  the  high 
level  programming  language  PL/1.  Necessary 
input-output  commands  are  inserted  together  with 
other  control  and  procedure  call  statements. 
Different  solution  methods  or  simulation  and 
estimation  techniques  will  be  automatically 
generated  from  the  MODEL  description,  as  described 
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in  Chapter  6 of  this  work. 

(7)  Compilation  and  Execution  of  the  Generated 
Programs  - Finally  the  program  is  submitted  for 
compilation  by  the  PL/1  optimazing  compiler,  which 
produces  an  object  or  load  module  for  integration  of 
the  program  into  the  system  and  subsequent  execution 
by  traditional  means. 

A more  detailed  overview  of  the  MODEL  processor  and  its 
components  is  given  in  Chapter  4. 

1.4  Accomplishments 

The  system  described  in  this  dissertation  in  conjuction 
with  several  examples  of  its  application  to  model  building 
in  economics  demonstrate  the  feasibility  of  automating 
software  development  in  every  stage  of  model  building, 
therefore  effecting  a direct  communication  between  the  model 
specifier  and  the  machine.  This  effort  was  an  outqrowth  of 
interdisciplinary  and  cooperative  research  in  which  this 
author  draw  experience  by  implementing  the  host  information 
system  for  solving  the  LINK  world  trade  model  [GAN  761,  and 
participated  in  the  design  of  a number  of  other  computer 
modeling  facilities,  while  interfacing  with  the  development 
of  MODEL  in  the  Automatic  Program  Generation  group.  The 
outcome  of  this  effort  is  a processor  with  immediate 
potential  for  saving  man-hours  in  software  development  and 
for  increasing  the  efficacy  of  the  modeling  process. 
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Furthermore , as  Chapter  7 will  illustrate,  the  automatic 
program  generation  methodology,  in  conjuction  with  other 
technological  innovations  in  computer  sciences  such  as 
distributed  computation  and  networking,  plus  data  base 
management  techniques,  could  be  used  as  the  nucleus  from 
which  applications  requiring  cooperative  computation  could 
evolve  by  allowing  the  sharing  of  both  human  and  computer- 
resources  at  a higher  level  of  abstraction. 

1.5  Summary  of  Contributions 

The  adaptation  of  an  automatic  program  generation  system 
to  model  building  has  contributed  essential  and  major- 
improvements  to  both  the  methodology  followed  in  the 
application  area,  as  well  as  to  the  techniques  and 
algorithms  used  for  automatic  generation  of  software  from  a 
general  non-procedural  language.  The  use  of  a formal 
descriptive  language  by  the  model  specifier  impose  a certain 
discipline,  but  allows  the  representation  of  the  problem  for- 
processing  in  a natural  and  logical  manner,  relieving  him 
from  tedious  and  expensive  time  and  efforts  dedicated  to 
program  debugging.  The  needs  for  innovative  and  complex 
techniques  of  completeness  and  consistency  analysis  of 
subscripted  expressions  found  in  the  specifications  of  many 
problems  areas  was  in  part  unveiled  while  trying  to 
generalize  the  MODEL  language  domain  to  model  building,  in 
particular-  to  dynamic  situations  involving  lagged  variables. 
The  solution  to  the  general  problem  is  reported  in  the 
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dissertation  by  Shastry  (SHA  781  who  also  implemented  the 
core  of  the  MODEL  processor. 

The  specific  achievements  of  this  dissertation  research, 
beyond  the  previously  reported  activities  are  summarized 
below: 

- As  a generator  of  modeling  software  facilities,  MODEL 
provides  the  user  with  a number  of  new  features  not 
found  in  other  state  of  the  art  modeling  systems.  These 
include : 

(1)  Generality:  the  user  can  generate  ad-hoc 
program  modules  according  to  his  needs.  It  is 
also  open  to  innovations. 

(2)  Non-ptocedutal  Language  Interface:  allowing 
direct  communication  of  the  specification 
without  control  or  computer  programming 
concepts. 

< 3)  Generalized  Data  Description  Facilities: 
provides  a method  for  data  and  program 
independence. 

(4)  Sharing  and  Integration  of  Modules: 
providing  an  effective  environment  for 
cooperative  computation. 

(5)  Transferability:  models  and  their  solution 
procedures  are  generated  in  the  high  level  PL/1 
code,  therefore  they  can  be  transported  and 
processed  in  other  centers  under  a PL/1 
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compiler . 

(6)  Efficiency;  several  levels  of  optimization 
are  in  effect;  in  code  generation,  memory 
allocation,  sequencing  as  well  as  in  solution 
procedures.  Also  the  fact  that  descriptions  are 
not  interpreted,  but  instead  code  is  generated 
for  later  execution,  imply  savings  in  execution 
time  for  many  applications  and  repetitive 
experiments. 

- The  implementation  of  a new  cycles  algorithm  in  the 
MODEL  processor  provides  an  effective  and  efficient  way 
to  deal  with  large  and  complex  models  containing 
simultaneous  interactions  or  feedbacks.  The  algorithm 
utilizes  well  known  linear  graph  search  procedures, 
however  its  implementation  as  a partitioning  technique 
in  a totally  non-procedural  specification,  with 
additional  man/machine  effective  interface  is  novel.  A 
number  of  new  extensions  to  the  basic  algorithm,  which 
provide  for  additional  decomposition  of  a complex 
structure  are  also  discussed  in  Chapter  5 and  were 
experimented  on  as  part  of  this  work. 

- The  methodology  for  automatic  generation  of  solution 
procedures  for  simultaneous  equation  systems,  in 
conjuction  with  a new  normalization  algorithm  will  allow 
the  user  to  concentrate  on  his  specification  instead  of 
on  complex  programming  of  solution  methods.  The 
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generated  solution  algorithms  are  therefore  transparent 
to  the  user  and  he  is  only  requested  to  provide  the 
associated  solution  parameters  when  other  than  the 
processor  supplied  default  values. 

Also  a generalized  approach  to  regression  and 
statistical  analysis  is  discussed  in  Chapter  8,  and 
again  the  user  is  only  required  to  provide  the 
mathematical  description  of  his  estimation  technique, 
with  which  he  is  familiar.  Code  will  be  automatically 
generated  based  on  the  functional  description  of 
requirements.  A comprehensive  set  of  matrix  and  vector- 
operation  functions  ate  provided  to  that  effect. 

Although  a complete  test  of  the  MODEL  processor  was 
precluded,  due  to  the  fact  that  some  of  its  phases  including 
sequencing,  code  generation  and  memory  optimization  are  in 
the  developmental  stage.  Appendixes  A and  C contain  listings 
of  simulation  examples  processed  by  MODEL  previous  stages. 
The  feasibility  for  the  complete  automatization  of  the  model 
builder  software  needs  are  nevertheless  evident. 

In  an  effort  to  generalize  the  basic  MODEL  languaqe,  no 
attempt  was  made  to  orient  the  language  to  a particular 
application.  As  the  conclusion  chapter  will  show,  it  is 
also  feasible  to  build  a more  natural  interface  between  the 
user  and  MODEL,  which  could  allow  a better  communication  by 
using  a terminology  familiar  to  specific  application  areas, 
as  well  as  a question-answering  system  for  overall  guidance 
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in  composing  the  specification.  Such  a facility,  in 
conjunction  with  the  "programming  knowledge"  and  tolerance 
embodied  in  the  present  MODEL  system  will  greatly  benefit 
model  builders  by  allowing  effective  utilization  of  manpower 
and  machines. 

1.6  Organization  of  this  Dissertation 

Chapter  2 gives  the  background  and  motivation  for  this 
work  together  with  a survey  of  related  literature  and 
research.  It  reviews  both  efforts  and  research  in  the 
automation  of  software  development,  as  well  as  those  aimed 
at  simplifying  the  task  of  model  building  and  simulation, 
placing  them  in  perspective. 

Chapter  3 gives  a detailed  definition  of  the  MODEL 
language,  its  structure  and  syntax.  It  can  be  used  as  a 
reference  manual  for  a prospective  user.  After  an  overview 
of  the  language  capabilities,  some  basic  definitions  and 
concepts  in  information  organization  are  given.  The  use  of 
the  language  is  illustrated  through  the  specification  of  a 
simple  but  comprehensive  simulation  example  from  the  field 
of  economics. 

Chapter  4 provides  an  overview  of  the  MODEL  processor 
and  its  components.  It  summarizes  the  methodology  and 
algorithms  used  in  each  phase  by  the  program  generation 


system 
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Chapter  5 describes  the  algorithm  and  programming 
techniques  used  in  the  Cycles  Analysis  phase.  The  needs  for 
model  decomposition  into  recursive  blocks  are  explained  with 
examples  and  the  methodology  for  further  "tearing"  or 
semi-decomoosition  of  recursive  blocks  is  explored. 

Chapter  6 presents  the  background  and  necessary 
programming  schemes  for  the  automatic  generation  of 
iterative  solution  procedures.  It  also  provides  a 
normalization  mechanism  for  future  implementation  in  the 
MODEL  processor. 

In  Chapter  7 the  concept  of  cooperative  computation  is 
introduced  and  the  "sharing"  and  "integration"  capabilities 
of  the  MODEL  system  are  illustrated  by  describing  a 
condensed  form  of  the  LINK  world  trade  system  which  is  used 
as  an  approximation  of  the  more  complex  simulation  model. 

Chapter  8 demonstrates  how  to  use  MODEL  in  regression 
and  statistical  analysis,  giving  several  examples  of 
specifications  using  assorted  functions  in  the  system.  A 
more  qeneral  approach  is  also  discussed  and  proposed  for 
future  implementation. 

Chapter  9 summarizes  the  overall  conclusions  that  can  be 
drawn  from  this  research,  and  suggest  directions  for  future 
investigation  and  development. 

The  output  listings  produced  by  the  MODEL  processor  from 
the  sample  simulation  example  introduced  in  Chapter  3 is 


given  in  Appendix  A.  Also  a sample  multicountry  integrated 
model  cot  responding  to  a reduced  approximation  of  the  LINK 
world  trade  model  presented  in  Chapter  7,  is  given  in 
Appendix  C.  The  reports  correspond  to  documentation 
produced  up  to,  but  not  including  the  sequencing  and  code 
generation  staqes. 

Two  other  appendices  are  included  with  the  programs 
composing  the  Cycles  Analysis  processor  and  a list  of 
functions  included  in  the  MODEL  library  for  general 
regression  and  statistical  analysis. 
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CHAPTER  2 


Background,  Motivation  and  Survey  of  Related  Research 
2.1  Introduction 

The  motivation  for  the  research  reported  in  this 
dissertation  arises  from  concern  over  the  qrowth  in  size  and 
complexity  of  computer  models  used  in  simulation  studies. 
As  models  become  larger,  the  difficulties  in  their 
estimation,  programming  and  solution  tend  also  to  multiply, 
and  so  does  the  requirement  for  trained  application 
programmers  to  keep  up  with  data  management  and  maintenance 
demands.  In  addition  to  these  costs  related  to  software 
development  and  information  systems  support,  it  is  necessary 
to  mention  the  major  problem  that  complexity  brings  about: 
it  becomes  increasingly  difficult  for  the  user  (the  model 
builder)  to  understand  the  structure  of  the  model  and  its 

I 

interactions  as  it  qfrows,  and  to  manipulate  it  as  well. 

The  use  of  a non-procedural  lanquaqe  to  automatically 
generate  application  and  solution  programs,  as  well  as 
necessary  software  systems  support  for  all  or  selected 
stages  of  model  building  is  expected  to  solve  or  ameliorate 
current  difficulties  through  the  following  special  features: 

1. -  Generality;  it  is  possible  to  tailor  the  generated 
programs  for  specific  needs  and  data  structures. 

2. -  Simplicity;  it  does  not  require  traditional 
programming  knowledge  from  the  user,  therefore  users 
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from  many  disciplines  can  be  attracted  to  generate 
complex  programs  without  the  need  of  extensive 
training  in  programming  languages  and  without  having 
to  communicate  requirements  to  an  application 
programmer . 

3.-  Abstraction ; since  a non-procedural  language  is 
closely  related  to  the  language  of  mathematics,  the 
specification  of  a model  and  its  data  processing 
requirements  becomes  adequate  for  both  human 
interpretation  and  communication,  as  well  as  for 
computer  processing  of  the  same  statements.  A 
description  in  a non-procedural  language  does  not 
contain  control  statements  nor  is  sequencing  of 
statements  necessary,  therefore  are  better  suited  to 
describe  complex  systems  than  procedural  languages 
which  do  not  posses  the  same  level  of  abstraction. 

Mote  detailed  characteristics  particular  to  the  MODEL 
language  are  given  in  chapter  3. 

Although  the  primary  orientation  of  this  work  has  been 
toward  solving  programming  problems  currently  faced  by  model 
builders  in  the  field  of  economics,  various  other- 
disciplines  in  the  social,  engineering  and  biological 
sciences  share  similar  characteristics.  Soylemez 's  [SOY  71] 
development  of  a process  unit  program  generator  represents 
an  attempt  to  further  automate  computer  aided  chemical 
process  design  calculation  procedures. 


as  part  of  a more 
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ambitious  goal  for  the  automation  of  the  entire  design  for 
an  arbitrary  chemical  plant.  The  emphasis  of  the  generator 
of  process  unit  programs  is  on  symbolic  equation  analysis 
and  ordering  techniques.  The  language  is  a "problem 
oriented"  programming  language  designed  to  accomodate 
chemical  engineers.  The  program  generator  was  implemented 
in  FORTRAN  and  closely  relates  to  programs  designed  to 
manipulate  symbolic  information  (i.e.,  algebraic 
substitution  and  rearrangement).  It  gives  extensive 
bibliography  of  related  chemical  engineering  work. 

Other  applications  may  require  implementation  of 
additional  techniques  and/or  solution  procedures  from  those 
reported  in  this  dissertation,  for  instance  Garfinkel  et  al. 
(GAR  771  reports  on  the  necessity  of  using  an  heuristic 
search  technique  in  dealing  with  the  construction  of  complex 
metabolic  models,  since  it  is  necessary  to  iteratively 
revise  the  model  until  it  approaches  acceptability.  Because 
of  the  large  number  of  unknown  variables,  and  insufficient 
data  to  uniquely  determine  or  best  estimate  them,  the  search 
space  in  the  iterative  phase  becomes  so  large  that  methods 
from  the  field  of  artificial  intelligence  become  a 
necessity. 

In  economics,  with  the  widespread  applications  of 
econometric  models  in  forecasting  and  policy  analysis,  the 
techniques  of  automatic  program  generation  seems  the  most 
appropriate  in  order  to  reduce  rising  costs  of  model 
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development  and  facilitate  experimentation  with  them 


Although  the  size  of  an  econometric  model  for  a modern 
economy  will  depend  on  the  amount  of  disaggregation  sought, 
a minimum  of  25  to  50  equations  is  considered  standard.  The 
most  successful  models  of  the  U.S.  economy  experimented  a 
growth  in  size  from  an  average  of  20  to  50  equations  in 
1950-1955  to  200  equations  by  1965-1970  as  exemplified  by 
the  Wharton  Model  at  the  University  of  Pennsylvania,  the  MPS 
model  (MIT-PENN-SSRC)  and  the  Brookings  model.  Currently 
some  of  these  models  are  using  500-1000  equations  and  the 
number  of  variables  is  expected  to  double  with  the  tendency 
to  integrate  national  macro  with  sectoral  models. 


I 
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Many  models  are  still  maintained  at  the  universities 
where  they  originated.  Econometric  groups  at  the  University 
of  Pennsylvania,  University  of  Michigan,  Princeton 
University  and  UCLA  produce  regular  forecasts.  Also 
government  agencies  have  developed  and  used  several  models 
of  the  U.S.  economy;  for  instance,  the  model  of  the  Bureau 
of  Economic  Analysis  of  the  Department  of  Commerce  is  one  of 
the  more  sophisticated.  The  use  of  econometric  models  by 
private  corporations  has  also  proliferated  in  recent  years. 

The  international  scenario  is  equally  active  in  the 
model  building  activity,  with  most  industrial  countries,  in 
particular  Japan,  Canada  and  the  United  Kingdom,  following 
the  lead  of  the  United  States.  Developing  countries. 


despite  deficiencies  in  their  statistics,  are  also  "taking 


24 

off"  and  either  buildinq  or  usinq  econometric  models  for 
development  planning.  Some  of  these  models  originate  in  the 
countries  itself,  others  in  different  universities  or 
international  organizations.  For  example  the  United  Nations 
Commission  for  Trade  and  Development  (UNCTAD)  prepares  a 
series  of  regional  models  that  cover  the  so  called  "third 
world".  Also  the  Centre  for  Development  Planning, 
Projections  and  Policies  (CDPPP)  of  the  United  Nations  has 
developed  a series  of  models  for  the  centrally  planned 
economies  of  eastern  european  countries  and  a model  of  the 
Soviet  Union  has  been  jointly  developed  by  Stanford  Research 
Institute  and  Wharton  Econometric  Forecasting  Associates  at 
the  University  of  Pennsylvania. 

The  need  to  integrate  models  is  also  a relatively  recent 


development. 

The 

systems  that 

are  being 

modeled  do 

not 

stand  alone. 

and 

regional  or 

world-wide 

integration 

of 

independently  developed  models  is  becoming  necessary. 

The  development  of  current  integrated  multinational 
models  had  their  roots  in  the  early  works  of  the  american 
economist  Metzler  (MET  50),  who  first  introduced  a 
mathematical  formulation  for  a multi-regional  model.  Since 
then  a number  of  models  of  the  world  economy  have  been  built 
(see,  for  instance,  a survey  by  Taplin  (TAP  67),  and  more 
recently  the  bibliography  given  by  Berner  (BER  77)  in  his 
study  of  merchandise  trade  amomg  the  countries  of  the 
European  Economic  Community  (EEC)).  Of  these,  the  most 
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ambitious  and  demanding  in  terms  of  information  processing 
resources  is  project  LINK  [BAL  73].  This  is  an 
international  cooperative  effort  to  model  world  trade  and 
study  the  international  transmission  mechanisms.  It  is 
organized  as  a conglomerate  of  econometric  research  groups 
from  all  over  the  world,  which  are  responsible  for 
development  of  individual  country  or  regional  models  to  be 
integrated.  The  whole  aggregate  of  models  is  simultaneously 
solved  at  the  LINK  center  at  the  University  of  Pennsylvania 
for  consistent  forecasts  of  world  trade.  The  process 
implies  formidable  calculations.  Standar ization  of 
individual  country  models  is  taking  place  in  a number  of 
dimensions,  However,  the  philosophy  of  the  project  is  that 
individual  member  countries  are  responsible  for  their  models 
and  are  in  the  best  position  to  judge  particular  structures 
and  specifications.  There  is  no  attempt  being  made  to 
follow  a particular  model  pattern  for  each  individual 
country.  This  implies  huge  amounts  of  resources  dedicated 
to  handle  the  data  management,  data  manipulation  and 
computational  problems  involved.  Chapter  7 describes  the 
LINK  system  in  more  detail,  as  an  example  of  cooperative 
computation,  and  illustrates  the  benefits  of  the  Automatic 
Program  Generation  approach  to  model  building. 

Despite  the  orientation  of  this  dissertation  to  the 
solution  of  econometric  models,  the  MODEL  language,  which 
accepts  non-procedural  specification  of  models  and  their 
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particular  application  area,  as  long  as  the  relationships 
between  variables  depicting  its  structure  are  described  by 
algebraic  equations.  Since  there  are  no  assumptions 
regarding  data  structures  (eg.  time-series  or 

cross-sectional  data)  nor  specific  application  oriented 
keywords  in  the  language,  MODEL  can  be  effectively  used  as 
the  basic  foundation  for  a broad  class  of  applications  where 
the  automatic  generation  of  programs  becomes  cost  effective. 
The  generality  can  be  achieved  by  proper  introduction  of 
functions  and  solution  orocedures  as  exemplified  in  chapters 
6 and  8 of  this  dissertation. 

2.2  Research  on  Automation  of  Software  Development 

This  section  summarizes  different  approaches  to  automate 
the  software  development  process  and  places  them  in 
perspective.  Traditionally  the  system  development  process 
has  been  divided  into  the  following  phases  ITEI  71,  COU  73, 
PRY  74]  : 

(1)  - Determination  of  problem  requirements  and 
demands  for  information. 

(2)  - Functional  soecif ication  of  the  system. 

(3)  - System  design:  modularization,  interfaces, 
parametr ization. 

(4)  - Program  design. 

(5)  - Program  implementation:  coding,  debugging 
and  testing. 
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(6)  - System  integration  and  installation. 

(7)  - Operations  and  maintenance. 

The  idea  of  systematically  using  the  computer  to 
automate  some  of  these  phases,  and  therefore  reducing  labor 
costs  and  human  errors,  developed  early  with  computer  usage. 
This  is  exemplified  by  the  appearence  of  such  facilities  as 
assemblers,  compilers,  routines  and  procedures,  macros, 
operating  systems  etc..  Historically  these  developments 
have  proceeded  in  a "bottom-up"  fashion  as  stated  by  Prywes 
{PRY  77a] : 


"First  to  be  automated  were  the  layers  associated 
with  execution  of  operations.  This  was  followed 
by  automation  of  the  layers  associated  with 
language  translation  and  program  optimization. 
Recent  emphasis  has  been  placed  on  improving 
efficiency  and  utility  of  programming  methodology 
and  high  level  programming  languages.  The 
chronological  order  has  been  dictated  by  the  use 
of  the  bottom  layers  in  automation  of  each  new 
layer.  Also,  subsequent  improvements  in  any  one 
layer  were  quickly  utilized  in  the  layers  above 
it..." 


The  rate  of  progress  in  the  automation  of  the  first  two 
phases  has  been  much  slower  in  relation  to  that  experienced 
by  the  lower  ones.  This  is  due  to  the  nature  of  the 
problems,  which  require  a knowledge  of  the  application  area 
and  problem  solving  techniques.  The  state  of  the  art  in 
artificial  intelligence  methodology  has  not  yet  developed  to 
the  point  where  a computer  could  generate  a knowledge  data 
base  from  an  interaction  with  the  user  in  natural  language, 
unless  the  problem  domain  is  a very  restricted  one  [HEW  71, 


28 


WIN  72,  SHA  73,  PRY  74).  A more  promising  approach  seems  to 
be  the  incorporation  of  "expert  systems"  for  particular 
areas  into  the  computer,  which  can  orient  the  user,  through 
an  interactive  session,  to  specify  his  problem,  resolve 
inconsistencies  and  propose  alternative  solutions.  An 
example  of  such  a system  developed  at  the  University  of 
Pennsylvania  for  automatic  testing  of  electronic  equipment 
will  be  described  later  in  this  section. 

Manual  aids  to  facilitate  systems  analysis  have  been 
available  in  forms-or iented  languages  [ADS  68,  TAG  68]  and 
later  processors  were  built  for  them  [THA  71,  IBM  711. 
These  efforts  were  mainly  oriented  to  facilitate  phases  (2) 
and  part  of  (3). 

Several  contributions  have  been  reported  on  the 
automation  of  the  physical  design  of  the  system  (step  (3) 
above).  For  instance  models  exists  for  the  selection  of 
file  organization  for  a simple  system  [SEV  72]  and  for  the 
simulation,  evaluation  and  selection  from  a range  of 
alternative  file  organizations  [CAR  73).  A general 
automatic  file  and  module  design  system  has  been  proposed 
recently  by  Gibb  [GIB  75]. 

Two  projects  have  tried  to  encompass  the  whole  of  the 
systems  development  process:  the  ISDOS  project  at  the 
University  of  Michigan  lead  by  Teichroew  [TEI  71,  TEI  72, 
HER  73,  TEI  74] , and  the  Automatic  Programming  Group  at  MIT. 
The  ISDOS  project  developed  a system  which  analyzes 
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functional  systems  specifications  in  a Problem  Statement 
Language  (PSL).  A Problem  Statement  Analyzer  (PSA) 
subsequently  checks  completeness  and  consistency  and  produce 
numerous  documentation  reports.  Nunamaker  expanded  the 
PSL/ PS A system  to  include  automation  of  physical  system 
design  and  program  coding  [NUN  69,  NUN  71,  NUN  72a,  NUN 
72b).  An  application  involving  the  development  of  a 
financial  management  system  using  the  integrated  tools  of 
ADS,  PSL/PSA  and  Nunameker  ’s  SODA  (System  Optimization  and 
Design  Algorithm)  system  was  reported  in  [NUN  76). 

The  efforts  at  MIT  are  integrated  in  PROTOSYSTEM  I which 
consists  of  a top  "expert  system"  which  performs  the  duties 
of  an  automated  consultant  to  the  management  of  a 
distribution  organization  [HAX  75,  MAR  74,  MAL  75,  BOS  76). 
The  bottom  part  of  PROTOSYSTEM  I receives  the  specifications 
from  the  top  part  and  performs  systems  design  and  generates 
PL/1  code  [RUT  76). 

The  Automatic  Program  Generation  Project  at  the 
University  of  Pennsylvania  has  conducted  research  since 
1973,  when  a data  description/manipulation  language  was 
developed  to  automate  the  generation  of  data  conversion 
programs  [RAM  73).  Unlike  the  other  projects  mentioned 
above,  the  emphasis  of  this  group  has  been  on  a "bottom-up" 
research  priority  in  agreement  with  the  chronological 
developments  and  economic  demands  of  software  as  described 
before.  These  efforts  have  culminated  in  the  development  of 
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the  NOPAL  and  MODEL  APG  systems. 

The  NOPAL  system  was  developed  for  designing  functional 
and  fault  isolation  tests  of  analog  electronic  equipment  and 
for  generation  of  corresponding  ptoqiams  for  computer 
controlled  automatic  test  equipment  [PRY  75a].  The  system 
consists  of  two  independent  parts:  the  top  oart  developed  by 
Tinaztepe  [TIN  77]  determines  efficient  test  specifications 
expressed  in  the  NOPAL  lanquaqe.  The  bottom  part  developed 
by  Chang  [CHA  77]  accepts  these  specifications  and  produces 
as  output  an  efficient  test  program  in  a procedural  test 
programming  language  OPAL.  The  bottom  part  can  also  accept 
test  specifications  directly  from  the  user. 

The  MODEL  system  is  a bottom-part  only  processor, 
oriented  primarely  to  phases  (4)  and  (5)  of  the  system 
development  process.  The  objective  has  been  to  obtain 
gr.-jter  generality  of  APG  systems  progressively  throuqh 
development  of  a bottom  part  for  a broad  class  of 
applications  and  requiring  reduced  user  proficiency  levels. 
The  first  version  generates  PL/1  proqrams  for  business 
transaction  processing  applications  [RIN  76],  A revised 
version,  called  MODEL  II,  is  an  operational  system  with 
simplified  user  language  [PRY  77b]  and  have  recently  been 
used  for  an  application  involving  the  production  of  programs 
needed  to  extract  and  transform  a variety  of  data  from  the 
Internal  Revenue  Service  (IRS)  tape  program  [PRY  77cl. 


The  research  reported  in  this  dissertation  has  extended 
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the  domain  of  applicability  of  MODEL  to  include  facilities 
for  generating  programs  needed  in  modeling  simulation  and 
forecasting,  and  in  general  has  oriented  the  system  to 
engineering  and  scientific  professionals.  The  effort  was 
carried  out  in  conjuction  with  the  development  of  a new 
version  called  MODEL  III,  which  includes  interactiveness, 
more  sophisticated  completeness  and  iteration  analysis  [SHA 
78]  , and  in  general  capabilities  to  generate  additionnal 
program  structures  and  methods  of  optimization  [MOT  77], 

The  potential  benefits  of  automating  each  of  the  phases 
of  the  system  development  process  was  evaluated  in  a survey 
by  Prywes  [PRY  74],  Although  different  applications  can  be 
affected  quite  differently  by  the  techniques  of  APG  systems, 
continuation  of  present  trends  in  software-hardware  costs, 
which  were  set  at  2:1  in  1970  and  conservatively  estimated 
to  be  10:1  by  1985,  as  well  as  raising  demands  for  skilled 
labor  force  needed  in  development  of  complex  systems, 
indicates  the  use  of  computers  in  the  automation  of  systems 
development  as  a viable  alternative. 


2.3  Summary  of  the  Modeling  Process 


Figure  2.1  shows  schematically  the  steps 
process  of  model  building.  The  divisions 
those  described  by  Naylor  et  al  [NAY  68], 
the  collection  and  processing  of  real  world 
sources.  These  may  include  field  surveys, 
samples,  documents  from  governmental 


involved  in  the 
are  similar  to 
It  starts  with 
data  from  many 
questionaires, 
agencies  or 
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international  organizations , physical  experiments, 
engineering  records,  etc..  This  task  is  normally  tedious 
and  time  consuminq.  It  involves  identification,  auditing, 
editing,  assignment  of  codes,  recording  and  verification. 


Often  the  first 

recording 

medium  is 

not  suitable  for 

data  processing  applications. 

so 

it  is 

further 

translated 

and  converted  into 

a data 

bank 

where 

manipula 

tions  are 

performed . 

The  Data  Analysis  phase  can  be  divided  into: 

(a)  - Preliminary  data  analysis  - This  stage  calls  for 
the  performance  of  such  operations  as  sorting,  collating, 
merging,  information  retrieval,  transformations  and 
generation  of  new  variables,  as  well  as  the  representation 
of  subsets  in  tabular  forms  or  graphic  plots.  It  is 
intended  here  to  familiarize  the  user  with  the  data  and  to 
allow  him  to  manipulate  and  organize  it  in  a manner  which  is 
convenient  for  the  model  structuring. 

(b)  - Simple  statistical  data  analysis  - The  user  can 
obtain  here  initial  indications  of  dependencies  between 
variables  from  calculation  of  simple  or  multiple 
correlations  among  data  variables.  This  phase  has  the 
function  of  confirming  the  user's  a priori  theories  about 
certain  structures  or  transformations  of  the  data  to  be 
applied  in  subsequent  modeling  staqes.  Other  typical 
operations  can  include  comoutations  of  means,  standard 
deviations  and  covariances. 
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The  formulation  of  a mathematical  model  consists  of  the 
following  three  steps: 

1 - Specification  of  components 

2 - Specification  of  variables  and  parameters 

3 - Specification  of  functional  relationships 

Components  depend  on  the  nature  of  the  model.  In  an 
economic  system,  a macroeconomic  model  would  include  the 
major  sectors  of  the  economy  as  components. 

The  variables  are  used  to  relate  the  components  and  can 
be  classified  as:* 

EXOGENOUS,  and 
ENDOGENOUS 

Exogenous  variables  are  the  independent  or  predetermined 
variables  used  as  inputs  to  the  system  (can  be  considered 
SOURCE  variables  in  MODEL  terminology). 

Endogenous  variables  are  the  dependent  or  output 
variables,  generated  by  the  exogenous  variables  in 
accordance  with  the  functional  relationshios  of  the  system 
(TARGET  variables  in  MODEL  assertions). 

The  functional  relationshios  describe  the  interactions 
between  components  and  variables  and  are  of  two  kinds: 


* 


A more  refined  classification  including  state  variables 
and  other  elements  is  also  possible. 
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IDENTITIES,  or 

STOCHASTIC  (Behavioral , technical  or  statutuory) 

Identities  are  either  definitions  or  tautoloqical 
statements  about  the  components  of  the  model. 

Stochastic  equations  are  hypotheses  or  mathematical 
equations  relatinq  the  model  's  endogenous  to  its  exogenous 
variables.  If  the  equations  describe  the  behavior  of 
various  groups  in  the  economy,  like  in  the  case  of  an 
investment  function  which  shows  the  relationship  between 
investment  expenditures  to  various  explanatory  variables,  it 
is  called  a behavioral  equation.  Other  equations  describe 
technological  or  institutional  relationships,  for  instance  a 
tax  function  showing  the  relationship  between  tax  revenues 
to  various  factors  affecting  it.  All  these  relations  are 
empirically  testable. 

Whether  a particular  variable  is  classified  as  exogenous 
or  endogenous  depends  on  the  particular  objectives  of  the 
model  and  other  factors.  It  is  possible  to  change  the 
status  of  a variable  first  classified  as  exogenous  to 
endogenous,  after  a suitable  explanatory  equation  is 
incorporated  into  the  system. 

The  specification  of  the  elements  is  by  no  means  an  easy 
task.  The  process  of  observing  some  system  in  the  real 
world,  formulating  some  explanatory  hypothesis  and  abstract 
from  them  the  formulation  of  a mathematical  model  are  still 
far  from  being  a regular  procedure  with  easy  rules. 
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Once  the  user  has  formulated  a number  of  mathematical 
models  describing  the  behavior  of  the  system,  it  is 
necessary  to  estimate  the  parameters  of  the  model  and  test 
the  statistical  significance  of  those  estimates. 

Among  the  important  methods  used  in  tne  estimation  of 
economic  models  (econometric  estimating  methods)  and 
described  in  the  literature  ate: 

Ordinary  least  squares 
Two-stage  leats  squares 
Limited  information  single  equation 
Full  information  maximum  likehood 
Three  -stage  least  squares 
Instrumental  variables 
Autoregressive  schemes 
Distributed  lag  operators 

A permanent  "model  specification  data  base"  will  be 
generated  after  estimation.  This  file  will  serve  many 
purposes:  it  will  allow  the  management  of  the  complete  model 
structure  and  its  alternatives,  and  it  will  contain  and 
input  file  for  the  simulation  stage.  This  input  file  will 
contain  all  the  necessary  information  such  as:  regression 
coefficients,  sample  endogenous  and  future  exogenous  data, 
constant  adjustments,  lags  etc..  If  this  permanent  data 
file  is  generated  immediately  after  the  model  is  estimated, 
the  user  can  check  his  model,  coefficients  and  residuals  at 
any  time  without  the  problem  of  having  the  data  bank  updated 
before  he  checks  his  program. 

Finally  the  model  is  simulated  over  a sample  period  or 
over  any  desired  period.  Since  the  models  can  be 
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simultaneous  and  non-linear,  normally  an  iterative  solution 
method  is  applied  to  the  set  of  equations  representing  the 
model . 

The  user  could  experiment  or  represent  policies  for 
investigation  either  by  supplying  specific  data  or  by 
carrying  out  special  processes  of  analysis  with  the  system 
by  means  of  computations  and  transformations  to  the  model 
under  study. 

The  entire  process  is  interactive  in  nature.  It 
consists  of  small  steps,  each  followed  by  decisions  from  the 
user  on  how  to  continue  the  process.  This  interaction 
between  the  user  and  the  programs  and  data  bases  is 
represented  in  Figure  2.1  by  a feedback  loop. 

A computerized  system  should  provide  the  necessary 
programs  to  facilitate  these  interactive  steps.  The 
characteristics  and  facilities  of  a system  to  perform  the 
above  functions  without  undue  restrictions  is  important  to 
the  success  of  the  entire  methodology. 

2.4  Survey  of  Computer  Modeling  Systems 

In  view  of  the  extensive  number  of  computer  modeling 
systems  now  available,  a detailed  comoarison  between  the 
various  languages  and  their  capabilities  is  beyond  the  scope 
of  this  dissertation.  However,  this  section  will  present 
some  references  to  the  literature  which  has  attempted  to  do 


38 


so,  and  give  a summary  of  their  findings. 

The  first  class  of  languages  that  should  be  mentioned  in 
connection  with  programming  of  simulation  experiments  are 
the  so  called  "general-purpose  programming  languages"  such 
as  FORTRAN,  APL,  ALGOL,  PL/1,  etc..  Although  not 
specifically  designed  for  any  of  the  model  building  stages, 
they  are  still  widely  used  to  write  special  programs  for 
estimation  and/or  simulation  of  each  system  under 
consideration. 


The  main  advantage  of  using  a general  purpose 
programming  language  is  of  course  its  generality  and 
flexibility.  Basically  the  user  can  design  an  ad-hoc 
package  for  his  model  building  requirements  and  data 
structures.  However  the  principal  shortcoming  in  using  this 
approach  lies  in  the  inherent  difficulties  encountered  both 
in  writing  and  interpreting  programs  in  these  languages,  as 
exemplified  by  the  following  excerpt: 


"...the  central  difficulty  of  the  problem  is  the 
control  of  the  sequence  in  which  the 
interdependent  actions  forminq  the  model  occur. 
If  one  attempts  to  write  a simulation  proqram 
using  only  a general-purpose  language,  one 
rapidly  becomes  enmeshed  in  the  complexities  of 
this  sequencing  control,  which  is  not  of  great 
interest  but  nevertheless  affords  surprisingly 
fertile  ground  for  minor  errors.  Moreover, 
mistakes  here  are  liable  to  produce  obscure 
effects,  and  are  correspondingly  difficult  to 
eradicate."  [WIL  64] 


During  the  early  sixties,  a number  of  "simulation 


languages"  were  developed  in  order  to  facilitate  the  writing 


of  simulation  programs  for  a variety  of  models  and  systems* 
Among  the  languages  developed  for  simulation  purposes,  the 
following  sample  can  be  considered  representative  and 
include  languages  widely  known  and  used: 

1)  GPSS  [GOR  62] 

2)  SIMSCRIPT  (MAR  62] 

3)  GASP  (KIV  63] 

4)  DYNAMO  [PUG  63] 

5)  SIMULATE  [HOL  64] 

6)  CSMP  [BRE,SIL  67] 

Although  these  languages  differ  in  intent  and  in  the 
extent  to  which  they  can  be  applied  to  different  modeling 
situations,  their  common  objective  has  been  to  facilitate 
the  representation  of  entities  and  events  in  a system. 

In  all  the  languages  there  are  provisions  for: 

- Model  initialization 

- Maintenance  of  data  files 

- A Monitor  or  Executive  routine  which  directs  the 
flow  and  sequencing  of  activities  in  simular.time  (in 
case  of  discrete  event  simulation  systems)  in 
accordance  with  the  language  "world-view"  (eg. 
events,  entities,  attributes). 

There  are  also  other  aspects  incorporated  in  the 


languages  such  as 
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- Data  collection  facilities 

- Report  generation 

- Statistical  sampling  procedures 

- logical  testing  facilities 

- Assistance  for  verification  and  validation  analysis 

- Assistance  with  debugging 

The  General  Purpose  Systems  Simulator  (GPSS)  is  a "block 
diagram"  language  where  the  structure  of  the  system  to  be 

simulated  is  defined  usinq  a fixed  set  of  predetermined 

block  types.  Each  block  will  represent  an  action  which  can 
occur  in  the  system  under  consideration.  The  sequence  of 
actions  are  indicated  by  connections  between  the  blocks  of 
the  diagram.  The  blocks  are  activated  by  the  flow  of  basic 
units  called  transactions  in  simulated  clock  time. 

SIMSCRIPT  and  GASP  on  the  other  hand  are  based  on  a 
description  of  the  system  in  terms  of  concepts  such  as 

events,  attributes,  entities,  set  and  state.  In  both 

languages  the  user  provides  the  "event"  routines,  which  are 
called  at  some  system  prescribed  time.  SIMSCRIPT  is  a 
procedural  language  in  itself,  while  GASP  can  be  considered 
a system  of  FORTRAN  subroutines  under  the  GASP  EXECUTIVE 
which  is  also  written  in  FORTRAN. 

Although  all  these  languages  can  be  considered  general 
purpose  simulation  languages,  they  differ  mainly  in  the 
extent  to  which  a particular  simulation  system  can  be 
represented  with  more  or  less  difficulty,  and  their 
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associated  solution  procedures  generated  more  or  less 
automatically. 

GPSS ,SIMSCRIPT  and  GASP,  although  can  be  applied  to  a 
wide  class  of  problems,  are  best  suited  to  represent  certain 
types  of  scheduling  and  queueing  situations,  or  transaction 
oriented  systems.  DYNAMO  and  SIMULATE  in  contrast  were 
specifically  designed  to  handle  large  scale  economic  systems 
involving  feedback  mechanisms.  SIMULATE  solves  nonlinear 
models  by  linearizing  the  equations  using  Taylor  's  series 
expansion,  which  leads  to  the  Newton  iterative  solution 
algorithm.  Program  SIMULATE  was  written  in  FORTRAN  for  a 
CDC  1604  computer.  It  was  successfully  applied  to  the 
Klein-Goldetberg  econometric  model  of  the  United  States. 
The  analysis  of  models  in  terms  of  recursive  blocks  for 
efficient  solution  led  Klein  to  the  use  of  the  Gauss-Seidel 
iterative  method  in  connection  with  the  Brookings-SSRC 
quaterly  model  of  the  United  States.  Linear  subsystems  of  a 
model  can  be  solved  by  matrix  inversion,  whereas  iterative 
methods  are  used  for  nonlinear  blocks  of  equations. 

DYNAMO  was  developed  in  connection  with  the  work  of 
Forrester  of  MIT  with  the  objective  of  making  it  easy  for  a 
user  to  represent  a system  and  their  interactions,  as  well 
as  to  help  him  in  analyzing  its  behavior  through  computer 
simulation. 
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"Forrester's  work  led  to  a computer  language 
called  DYNAMO  which  allowed  users  without 
mathematical  training  to  represent  the  system  by 
a block  diaqram  with  boxes  corresponding  to  flow 
rates  and  with  other  boxes  modifying  those  flows 
rates  — and  then  to  convert  the  diagram  into  a 
computer  program."  [ARB  77] 

The  Continuous  System  Modelinq  Program  (CSMP)  on  the 
other  hand  was  developed  to  model  dynamic  continuous  systems 
(i.e.,  time  is  represented  as  a continuous  variable) 
represented  by  means  of  differential  equations.  CSMP  is  a 
set  of  integration  routines  which  permits  the  definition  of 
a system  in  symbolic  form  in  terms  of  differential 
equations.  The  language  also  accepts  FORTRAN  statements. 
It  is  a problem  oriented  language  which  frees  the  user  from 
concerns  regarding  numerical  integration  etc.. 

Today  some  of  these  languages  have  extended  their 
initial  capabilities  and  evolved  into  very  useful  and 
sophisticated  systems.  For  instance  GASP  can  be  used  for 
hybrid  simulation,  with  facilities  Drovided  for  both 
discrete  and  continuous  systems. 

A summary  of  the  capabilities  of  these  languages  and 
examples  of  their  use  in  different  modeling  scenarios  can  be 
found  in  [NAY  68].  A comprehensive  analysis  and  comparison 
between  several  simulation  languages  is  provided  by 
Teichroew  and  Lubin  [TEI  66]. 

The  systems  discussed  so  far  were  designed  ptimarely  for 
the  simulation  and  experimentation  stages  of  model  building. 
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Separate  software  was  used  for  the  analysis  of  the  data  and 
estimation  of  the  parameters  of  the  models.  A number  of 
systems  were  built  for  this  particular  phase,  normally 
consisting  of  sets  of  statistical  procedures  written  in  a 
programming  language  such  as  FORTRAN.  A recent  survey  and 
evaluation  of  this  type  of  software  used  in  the  social 
sciences  is  given  by  Slysz  (SLY  74]. 

However,  recent  years  have  witnessed  the  development  of 
a number  of  computer  modeling  systems  designed  more  or  less 
to  encompass  the  whole  of  the  model  building  activity, 
particularly  in  the  social  sciences.  Some  of  those  systems, 
used  in  econometric  research,  were  surveyed  by  Prywes  and 
this  author  as  part  of  this  dissertation  research,  and 
reported  in  [PRY  75b],  Perhaps  the  most  representative  and 
up-to-date  system  in  this  class,  reflecting  the  trend  in 
computer  systems  to  aid  the  model  building  activity,  is  the 
TROLL  system  (Time-shared  Reactive  On-line  Laboratory) 
developed  by  E.  Kuh  and  M.  Eisner  at  MIT  and  later  continued 
as  a project  of  the  National  Bureau  of  Economic  Research 
(NBER)  Computer  Research  Center  for  quantitative  research  in 
economics  and  other  social  sciences  [TRO  73], 

The  TR011  system  was  born  in  1966  as  a project  of  the 
MIT  Department  of  Economics.  Its  purpose  was  to  brinq 
"interactive  programming  technology  to  applied  econometric 
research" . 
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"The  system  was  desiqned  to  qive  a researcher 
workinq  at  a computer  terminal  immediate, 
flexible  access  to  all  capabilities  needed  for 
entering,  estimatinq,  and  simulatinq  a model 
(equation  system).  Results  are  printed 
immediately  on  the  user's  terminal.  This  allow 
him  to  revise  initial  equations  or  execute 
alternative  analytic  procedures,  as  sugqested  by 
interim  results.  In  short,  the  interactive 
design  facilitates  experimentation."  [TRO  73] 


Other  state  of  the  ait  computer  modelinq  systems  share 
some  of  TROLL  characteristics  and  interactive  approach  (eg. 
PLANETS  [BRA  72]),  while  others  are  batch  oriented  systems 
with  mote  emphasis  in  the  methods  of  analysis  of  time  series 
data  (eg.  RAPE  [RAD  72],  TSP  [TSP  73]). 


Despite  considerable  progress  attained  to  date  by  these 
systems  in  simplifying  the  interface  between  the  model 
builder  and  the  computer,  they  still  have  some  inherent 
limitations  and  cannot  be  considered  "automatic  generators" 
of  programs  nor  can  they  meet  general  users  requirements 
because  they  have  one  or  more  of  the  following  deficiencies: 


1) 

They 

2) 

They 

the 

user 

3) 

They 

4) 

They 

such 

i as 

writ 

ing 

do  not  posses  a generalized  data  structure, 
impose  a particular  "view  of  the  world"  to 
for  representation  of  his  system, 
require  procedural  knowledge  to  use,  or 
require  knowledge  of  a programming  language 
FORTRAN  for  reasons  such  as  insertinq  and 
subroutines . 


Teichroew  and  Lubin  recognized 


the  need  for  more 


flexible  data  structures 


in  their 


survey 


of 


simulation 


languages  when  they  stated: 


"A  language  should  provide  for  at  least  five 
types  of  variables:  records,  fields,  qrouos  of 
records,  array  or  system  variables,  and  lists  of 
record  identifications.  More  flexibility  in 
cheating  and  manipulating  data  structures  is 
desirable  because  simulation  models  are  becoming 
larger  and  more  complex..."  (TEI  66] 


Chapter  3 of  this  dissertation  summarizes  the  extensive 
capabilities  of  the  MODEL  language  in  this  regard,  and 
presents  a simulation  example  in  which  structured  data  is 
manipulated  and  transformed  in  a non-procedural  context. 

Moreover,  MODEL  uses  PL/1  as  the  target  language  for  the 
generated  programs,  which  was  earlv  recognized  by  the  same 
authors  to  be  a promising  programming  language  in  simulation 
applications: 


“The  new  general  purpose  language,  PL/1,  may  be 
particularly  attractive  for  such  applications 
its  input-outout  features,  its 
operations,  its  flexible  data 

character  and  part-word  data 

capability,  and  its  list  processing 


because  of 
asynchronous 
structures , 
manipulating 


and  memory  extending  commands." 


The  automatic  generation  of  solution 
techniques  used  by  MODEL  are  described  in  chapter 


procedures 

6. 


It  is  expected  that  the  new  approach  of  using  automatic 
program  generation  techniques  in  model  building,  simulation 
and  forecasting,  will  be  particularly  effective  in 
situations  where  the  dynamics  of  the  problem  require  quick 
answers  and  rapid  implementation,  where  the  complexity  of 
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the  models  make  standard  software  development  techniques 
impractical  and  cost-ineffective,  where  the  data  and/or 
models  are  continually  chanqing,  come  from  different  sources 
and  possible  require  integration.  These  type  of  systems  are 
becoming  more  common  today  and  are  recognized  as  Dart  of  a 
class  of  systems  known  as  "decision  support  systems’*. 
Donovan  (DON  77]  in  his  study  of  database  technology  in 
which  these  systems  are  supported,  recoqnized  that  the 
traditional  approach  is  not  adequate  in  itself  for  such 
systems,  and  recommended  to  develop  new  complementary 
technologies  and  the  extension  of  existinq  database  systems 
technologies  for  the  development  of  effective  decision 
support  systems.  He  illustrate  this  point  with  the 
development  and  implementation  of  a Generalized  Management 
Information  System  and  with  its  application  to  a complex 
energy  problem  facing  New  Enqland.  The  automatic 
programming  methodology  reported  in  this  dissertation, 
although  of  different  scope,  expects  to  contribute  also  in 
this  area,  in  particular  by  automating  the  program  desiqn 
and  implementation  process  for  a broad  class  of 
applications. 
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CHAPTER  3 

The  MODEL  Lanquaqe 

3.1  Introduction 

This  chapter  explains  the  Module  Description  Lanquaqe 
(MODEL)  throuqh  the  soecif ication  of  a simple  but 
comprehensive  simulation  example  from  the  field  of 
economics.  This  by  no  means  implies  a limitation  in  the 
scope  of  usage  of  the  lanquaqe,  which  is  generally 
independent  of  the  class  of  problems  and  expected  to  be  used 
in  a wide  variety  of  appl ica t ions , but  it  is  more  of  a 
reflection  on  the  orientation  of  this  dissertation  to 
readers  with  competence  in  the  area  of  social  or  enqineerinq 
sciences,  but  not  particularly  knowledgeable  of  computer 
programming  and  information  sciences. 


MODEL  has  evolved  from  research  on  Automatic  Program 


Generation,  conducted  at  the  Moore  School,  University  of 
Pennsylvania  since  1973.  Its  original  goals  were  defined  to 
be  the  automation  of  the  proqram  design  and  imolementat ion 
process  of  a business  data  processing  information  system. 
It  was  intented  to  be  used  by  management,  business  or 


accounting  specialists  without  particular  programming 
training.  Those  objectives  were  exemplified  in  [RIN  76). 

Similar  considerations  wnie  later  on  extended  to  the 
area  of  Automatic  Test  Proqram  Generation  for  electronic 


equipment  [CHA  77, TIN  77).  The  original  objectives  have 


48 


been  augmented  to  include  the  desiqn  and  generation  of 
programs  foi  modeling,  simulation  and  forecasting  in  the 
social  or  engineering  sciences.  This  effort  was  carried  out 
in  conjuction  with  a major  project  undertaking  which  enhance 
the  language  capabilities,  incorporate  more  sophisticated 
sequencing  and  iteration  analysis,  otovide  for  interactive 
user  communication  facilities  and  relax  some  restrictions 
previously  impossed  in  the  complexity  of  the  allowed  input 
data  structures  [SHA  78], 

This  first  section  provides  an  overview  of  the  language, 
it  characteristics  and  novel  features,  and  ends  with  a 
general  discussion  on  the  requirements  impossed  on  the 
prospective  user.  Section  3.2  gives  a brief  description  of 
the  logical  structure  of  the  language  and  its  comoonents. 

Detailed  documentation  for  each  of  the  language  elements 
is  presented  in  sections  3.3  through  3.4,  while  building  the 
specification  needed  to  automatically  generate  a solution 

program  for  the  dynamic  simulation  of  an  econometric  model. 

' 

The  chapter  concludes  with  a general  discussion  on 
interactiveness,  and  its  implications  in  different  stages  of 
model  building. 

3.1.1  General  Background 

By  looking  at  model  building  as  an  information  process, 
it  is  possible  to  abstract  a set  of  basic  functions  which 
ate  common  to  other  fields  such  as  business  data  processing. 
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Like  these 

other 

sv 

stems,  models 

deal 

with  real  world 

objects  or 

events 

(entities) 

whose 

attributes  are 

represented 

in 

the 

system  by 

data : 

quantitative  or 

qualitative  measures  of  value. 

This  data  is  structured  and  qrouped  into  data  bases, 
which  act  as  repository  for  the  aggregate  information.  Any 
system  must  then  provide  some  tool  which  will  allow  the  user 
to  manipulate  his  data;  to  apply  transformations  or 
functions  which  in  turn  generate  new  data,  or  modify  the 
existing  one,  or  allow  for  the  reestr uctur inq  of  the 
information  organization. 

Different  applications  however  have  wide  disparity  in 
terms  of  the  complexity  of  their  Processes.  The  information 
system  for  a typical  department  store  with  a large  number  of 
charge  account  customers,  extensive  and  diversified  stock 
inventory  and  a number  of  point-of-sale  terminals  connected 
to  a computer  network,  will  require  complex  file  and 
interfile  structuring  while  the  transformations  required  by 
accounting  rules  would  generally  be  quite  simple.  A 
macroeconomic  model,  on  the  other  hand,  requires 
sophisticated  estimation  and  solution  techniques  for  lauqe 
systems  of  nonlinear  equations,  which  transforms  or  operates 
on  a generally  simple  structured  databank  consisting  of  a 
collection  of  time  series.  As  in  any  information  system, 
the  designer  of  a system  for  either  all  or  selected  stages 
of  model  building  should  also  give  careful  consideration  to 
requirements  of  information  selection  and  presentation  to 
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f the  user  as  well  as  to  the  concept  of  interactiveness  to  be 

discussed  in  section  3.5. 

I 

W 

Traditionally  model  builders  have  relied  on  the  use  of 
hiqh  level  procedural  lanquages  such  as  FORTRAN  or  PL/1  to 
develop  the  systems  or  'packages'  which  accomplish  different 
tasks  at  different  stages  of  the  process.  These  languages 
ate  characterized  by  the  use  of  control  statements  such  as 
GO  TO,  IF,  WHILE  and  DO  loops  plus  INPUT/OUTPUT  read  and 
write  statements,  toqether  with  assignment  statements  which 
requite  awareness  of  the  concept  of  memory,  hence  careful 
consideration  of  the  logical  order  of  these  statements  for 
proper  evaluation.  Recently  there  have  been  a proliferation 
of  interactive  systems  which  provide  a command  language  for 
either  all  or  selected  stages  of  the  modeling  process. 
Despite  the  advances  attained  by  these  systems  in  terms  of 
user  requirements,  they  still  need  some  deqtee  of  control 
logic  and  memory  assignment  in  composing  the  commands  for  a 
particular  task.  Their  main  drawback  however  lies  in  poor 
capabilities  to  handle  different  data  structures  and  in 
providing  generality  outside  the  narrow  scope  of  their 
original  desiqn  considerations.  Real  life  situations  often 
provide  new  alternatives  to  Drocesses,  makinq  it  difficult 
to  abstract  a closed  set  of  imperative  language  sentences, 
unless  the  universe  of  discourse  is  a relatively  simple  one. 
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3.1.2  Overview  and  Intent  of  the  Language 

MODEL  is  a high  level  non  procedural  language  designed 
to  be  employed  by  a broad  class  of  users,  specialized  in 
different  apolication  areas  but  not  necessarily  in  the  art 
of  computer  programming.  The  language  accepts  descriptions 
of  input  and  output  data  structures,  together  with 
computational  statements  called  assertions  which  define 
relationships  (ar ithmetical  or  logical)  between  them  or 
their  component  elements  or  variables.  These  assertions  are 
not  of  the  assignment  type  , but  rather  considered  to  be 
algebraic  tautologies.  The  user  needs  not  to  concern 
himself  about  concepts  of  sequencing  of  statements  in 
composing  his  requirements  into  an  integral  unit  or  module. 
For  instance  in  specifying  the  individual  equations  which 
compose  a macroeconomic  model,  it  is  not  necessary  to  keep 
track  of  the  recursive  order  or  causality  between  elements 
or  sectors  of  the  model.  The  processor  will  determine  such 
order  automatically  and  will  report  back  complete 
documentation  on  the  ordering  together  with  an  efficient 
coding  of  a solution  program.  By  relieving  the  user  from 
thinking  in  terms  of  a process  to  be  carried  out  or 
'flow-chatting'  for  careful  timing  of  instructions,  it  makes 
the  language  not  only  easier  to  use,  but  also  permits 
concurrency  in  system  development  by  allowing  information  to 
originate  from  different  arouDS  of  users  that  share  common 
description  of  a database. 


s, 
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The  language  allows  both  humans  and  mechanical 
processors  to  communicate  about  information  structures. 
This  facility  has  particular  relevance  in  applications  where 
there  is  great  amount  of  data  exchange,  from  different 
originations.  In  certain  model  building  applications,  data 
often  comes  in  different  formats  and  structures.  Since  in 
MODEL  the  data  description  is  independent  from  the 
assertions  that  manipulate  it,  and  from  any  specific 
hardware  configuration,  it  can  be  used  as  a standard 
language  for  exchange  of  information  about  models  and  their 
data . 

Since  MODEL  does  not  require  step  by  step  prescriptions 
for  particular  computations,  as  other  standard  procedural 
programming  languages  do,  it  is  closely  related  to  the 
language  of  mathematics.  It  uses  short  and  concise 
statements  which  can  be  considered  as  axioms  of  a formal 
system.  Computing  theory  provides  the  methodology  to 
translate  a non-procedural  specification  into  algorithms  for 
generation  of  programs  [LEA  74].  Since  a non-procedural 
language  uses  the  language  of  mathematics,  it  is  possible  to 
assert  properties  of  program  correctness  directly  without 
recurring  to  the  treatment  of  programs  as  static  objects  and 
without  requiring  an  inverse  translation  to  a different 
language  (for  example  from  a procedural  programming  language 
to  the  language  of  propositional  calculus)  [ASH  77], 


The  final  product  of  the  MODEL  processor  is  a program 
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written  in  PL/1  to  perform  the  information  system 
requirements  as  described  by  the  MODEL  composed  statements 
given  by  the  user.  These  statements  are  entered  via  a text 
editor  into  a MODEL  statement  data  base  where  subseouent 
analyses  is  done  by  the  processor.  These  analysis  include 
the  resolution  of  inconsistencies,  ambiguities  and 
incompleteness  of  the  totality  of  stored  description  for  a 
particular  module.  Some  stages  of  the  analysis  will  require 
user  interaction  in  order  to  add,  delete  or  modify  some  of 
the  statements. 

Figure  3.1  illustrate  the  basic  concepts  involved  in  the 
automatic  program  generation  process. 
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Complete  documentation  is  produced  at  different  stages 
of  the  orocess  together  with  any  possible  logical 
implication  which  may  result  from  the  analysis  of  the 
complete  specification. 


3.1.3  Main  Characteristics  and  Capabilities 

Following  is  a detailed  description  of  the  novel 
features  which  make  the  MODEL  language  unique  in  a variety 
of  applications  ranging  from  business  data  processing  to 
simulation  of  engineering  or  economic  systems.  These  are 
characteristics  normally  not  found  in  other  programming 
languages  or  special  purpose  systems  used  in  model  building: 


1)  Non-procedur a] r ess  - This  concent  was  exolained 
in  section'  3.1.2’  and  refers  to  the  important 
feature  of  being  capable  of  accepting  unordered 
sets  of  assertions.  This  means  that  the  user  is 
not  required  (nor  it  is  possible)  to  specifv 
control  logic  for  his  pronram  in  terms  of  sequence 
of  operations  or  memory  assignment.  This 
procedural  information  as  well  as  the  necessary 
input/outDut  statements  for  the  working  of  the 
generated  program  are  to  be  deduced  by  the  system. 


2)  Independence  of  Statements  - A user  can 
concentrate  on~composing  one”"  statement  at  a time. 
It  is  not  necessary  or  possible  to  specify 
explicit  relationships  between  statements. 
Implicit  relationships  like  those  holding  among 
variables  of  a set  of  simultaneous  equations  as 
well  as  the  recursive  ordering  of  a model  are  done 
automatically  by  the  system.  An  exeption  can  be 
considered  the  case  in  which  the  user  wants  to 
'force’  a set  of  assertions  to  be  treated  by  the 
processor  as  a simultaneous  system  of  equations. 
This  can  be  instructed  by  giving  a common 
qualifier  name  to  every  assertion  that  belongs  to 
the  group.  This  subject  is  treated  in  more  detail 
at  the  end  of  this  chapter  in  section  3.5. 
However  there  is  no  loss  of  generality  in  the 
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language  with  this  treatment.  By  definition 
simultaneous  equations  belonq  to  the  same 
equivalence  class  and  ate  condensed  by  the  MODEL 
processor  into  a compound  assertion,  representing 
a single  statement  with  recursive  interactions. 
This  compound  assertion  is  to  be  solved  by  an 
iterative  method  to  be  chosen  by  the  user.  If  he 
gives  the  same  qualifier  name  to  a set  of 
equations,  the  aggregate  is  treated  as  a sinqle 
recursive  statement  for  analysis,  keeping  this  way 
the  independence  of  statements  characteristic  of 
MODEL. 


3)  Randomness  - This  prooerty  is  closely  related 
to  the  concept  of  independence  of  statements 
previously  described.  It  takes  into  account  the 
fact  that  information  may  originate  from  a user  or 
group  of  users  at  different  times,  without  a well 
organized  schema.  Although  an  understanding  of 
the  input  and  output  structures  and  their 
relationships  is  mandatory,  the  information  about 
them  can  be  entered  at  random,  one  statement  at  a 
time  as  information  becomes  available. 


4)  Incrementality  - When  the  information  provided 
by  the  user  is  incomplete  or  ambiguous,  MODEL  is 
capable  of  requesting  additional  information 
incrementally  until  a complete  and  unambiguous 
specification  is  given.  This  property  is  expected 
to  give  substantial  savings  in  applications  such 
as  model  building  of  large  and  complex  systems. 
Traditional  programming  languages  demand  a great 
effort  to  keep  track  of  proper  control  logic  and 
to  avoid  costly  testing  and  reproqramming  for 
those  systems. 


5)  Self -Document at  ion  - This  is  generated  at 
different  levels  throughout  the  interaction 
between  the  user  and  the  processor  and  up  to  the 
flowcharting  of  the  generated  program.  Cross 
references,  summary  tables  and  comments  are 
generated  by  the  processor.  For  example  a user 
skillful  in  programming  languages  could  use  the 
flowchart  and  PL/1  generated  program  documentation 
to  modify  it  or  to  link  it  with  other  programs  in 
a library.  An  economist  on  the  other  hand  could 
use  the  cross  reference  table  of  name 
relationships  to  check  instances  of  a particular 
variable  in  other  sections. 
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6)  Maintenance  - Changes  to  programs  either 
because  oF  new  system  specifications  ol  because  of 
operational  errors  found  can  be  imolemented 
without  recurring  to  an  aDplication  otogrammer  as 
a middleman.  This  will  normally  save  time  and 
avoids  costly  reprogramming  due  to 
misunderstandings. 


7)  Sharing  - Sections  of  data  or  computation 
description  included  in  the  MODEL  data  base  can  be 
referenced  by  different  users  in  order  to 
incorporate  them  in  their  , own  programs,  for 
instance  the  description  of  a databank  containing 
time  series  for  the  United  States  economy.  Then 
any  program  which  wants  to  use  this  data  needs 
only  to  refer  to  the  previously  stored  description 
of  it.  If  there  are  chanqes  in  the  data 
structure,  it  is  only  necessary  to  modifv  the 
common  descriotion  and  automatically  regenerate 
the  programs  that  refer  to  it.  Information 
sharing  allows  for  exchange  of  knowledge  and 
experience  as  well  as  of  data  from  other  users  in 
similar  application  areas,  as  Iona  as  the 
description  of  their  requirements  is  stored  in  the 
data  base. 


8)  Integr ability  - Since  the  data  descriptions  are 
independent  From  the  assertions  that  transform 
them,  it  is  possible  to  decentralize  the 
development  of  a system  into  independent  module 
descriptions.  These  can  be  integrated  later  for  a 
consistent  overall  specification.  For  instance, 
in  developing  a world  trade  simulation  system, 
each  national  model  could  be  specified  following 
individual  country  standards  and  tested  in 
isolation,  later  they  can  be  integrated  together 
into  a world  model  which  may  include  regional  as 
well  as  country  and  commodity  models  by  suitable 
inclusion  of  the  linkage  method  specification. 
Chapter  7 illustrate  this  concept  using  a 
multi-country  econometric  model. 


9)  Tolerance  - In  composing  the  statements  for  a 
given  "application , many  times  it  is  found  that  the 
complete  description  requires  repetitive  and 

tedious  detail.  The  processor  will  accept  many 
types  of  omissions  due  to  error  or  incompleteness 
and  will  provide  automatically  additional 

statements  or  will  complete  a partial 
. specification  of  names  in  order  to  resolve 

ambiguities. 
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3.1.4  User  Requirements 

It  has  been  stated  that  MODEL  is  a non  procedural 
language  which  can  be  used  as  a program  writer  given  the 
description  of  the  information  system  needs.  In  this  sense 
the  duties  of  the  MODEL  processor  are  comparable  to  that  of 
an  application  programmer.  It  was  also  mentioned  that  the 
user  needs  not  to  think  in  terms  of  processes,  memory 
assignment  or  flowcharting  in  order  to  use  the  languaqe  to 
produce  usable  programs.  Thus  MODEL  is  oriented  to 
application  practitioners  such  as:  business  managers, 


scientists , 

economists , 

financial  analysts. 

social 

researchers 

or  accountants 

. In 

general  people 

without 

exposure  to 

computet  programming 

concepts.  The  only 

requirement 

from  this  type 

of  users,  besides  the 

assumed 

proficiency 

in  their  own 

area  of 

competence  and 

basic 

mathematical 

language,  is 

a clear 

understanding  of 

their 

information  needs  and  in  particular  about  the  organization, 
both  hierarchically  and  spatially,  of  the  data  structures 
that  compose  the  system.  These  latter  concepts  relate  to 
the  identification  of  units  and  subunits  composing  the  data 
(hierarchy  of  the  organization  structure)  and  to  the  order 
by  which  these  subparts  are  arranged  on  a medium  such  as 
tape,  disk  or  cards  (spatial  organization). 

Since  the  data  description  facilities  provided  by  MODEL 
closely  resemble  the  declaration  statements  and  data 
description  sections  of  PL/1  and  COBOL  respectively,  a 
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proficient  programmer  could  a 
of  existing  file  descriptions 

In  general  the  superiori 
independency  and  lack  of  cont 


with 

more 

time  to 

mation 

needs 

and  str uctu 

Iso  benefit  by  taking  advantage 
given  in  these  languages. 

ty  of  MODEL  in  terms  of  data 
rol  statements  will  orovide  any 
dedicate  to  the  analysis  of 
ring  of  the  data. 
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3.2  The  Lanquaqe  Structure 

Fiqure  3.2  shows  a breakdown  of  the  different  elements 
which  compose  the  MODEL  lanquaqe.  The  user  may  provide  a 
description  for  each  of  those  elements  in  any  order.  Some 
omissions  will  be  tolerated  whenever  the  processor  is  able 
to  provide  the  missing  information  in  the  completeness 
analysis.  For  instance  the  name  of  a module  or  the  name  of 
assertions  will  be  provided  by  the  system  if  not  given  by 
the  user. 

The  header  is  composed  of  four  subsections:  (1)  Module 
name  used  for  identification  purposes,  names  of  files  used 
as  source  (2)  and  target  (3)  in  the  specification  of  the 
module  and  references  to  other  descriptions  (called 
sections)  previously  stored  in  the  data  base  (4).  Those 
descriptions  will  automatical ly  be  included  as  part  of  the 
specification  and  may  include  computation  description 
statements  as  well  as  data  descriptions.  This  facility 
provides  for  the  sharing  of  standard  specifications 
previously  entered  into  the  system. 


J 


61 


MODEL  

HEADER  

(1) 

MODULE 

NAME 

STRUCTURE 

1 1 — 

(2) 

SOURCE 

FILE 

NAMES 

1 1 — 

(3) 

TARGET 

FILE 

NAMES 

1 1 — 

(4) 

REFERENCE  TO 

SECTIONS 

DATA 

DESCRIPTION ! 


(5)  FILE  --  FILE1  — 
DESCR 


I- 


FILEn 


-(6) 


INTERFILE 

POINTERS 


MEDIA 
DESCRIP 
DATA 
DESCRIP 
ASSERTIONS 
I -LENGTH 
I -EXIST 
I -POINTER 


MEDIA 
DESCRIP 
DATA 
DESCRIP 
ASSERTIONS 
I -LENGTH 
I -EXIST 
I -POINTER 


COMPUTATION  -■ 
DESCRIPTION 


(7)  INTERIM  VARIABLE  DESCRIP 

(8)  SUBSCRIPT  PARAM  DESCRIPTION 

(9)  ASSERTIONS  — IDENTITIES 
-BEHAVIORAL 

EQUATIONS 
-OPERATING 
CHARACTERIST 
-ETC. . 


Figure  3.2:  Outline  of  MODEL  Language 
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The  data  description  section  consist  of  two  subsections: 
(5)  File  descriptions  and  (6)  Interfile  pointers  to 
coordinate  references  in  network  like  structures.  The  file 
description  itself  consist  of  the  specification  of  the 
storage  media,  the  descriDtion  of  the  data  constructs 
composing  the  file  and  their  hierarchical  and  spatial 
organization  and  a set  of  assertions  used  to  dynamically 
evaluate  data  dependent  structures.  These  may  include  intra 
record  coordinations  (Pointer),  variable  length  fields 
(Length)  or  assertions  to  compute  the  number  of  repetitions 
of  certain  structures  (Exist). 

Computational  descriptions  consists  of  defininq  those 
variables  which  are  used  in  the  computations  but  which  do 
not  appear  as  either  source  or  target  data  names  (Interim 
variables  (7)).  Variables  in  common  use  throuqhout  the 
model  as  subscripts  (ex.  I,J,K,etc..)  may  also  be  declared 
as  subscript  variables  (8).  Finally  the  operating 
characteristics  of  the  system  under  consideration  should  be 
inserted  as  assertions.  In  describing  a model  these  will 
includ  definitional  equations  as  well  as  stochastic  and  a 
priori  equations  composing  the  model,  in  addition  to  other 
auxiliary  assertions  needed  for  the  workinq  of  the  totality 
of  the  information  system  with  its  interactions. 
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3.3  An  Illustrative  Simulation  Example 
3.3.1  Introduction 

MODEL  can  be  used  to  automatically  generate  a program 
for  the  solution  of  a linear  or  nonlinear  model  whose 
relationships  are  expressed  as  assertions  relating  source  to 
target  elements.  The  assertions  representing  definitional, 
a priori  and  stochastic  eauations,  plus  the  necessary 
relationships  needed  for  the  association  between  data 
structures,  can  be  entered  using  the  text  editor  in  any 
order.  The  'cycles'  analysis  phase  of  MODEL  will  first 
identify  simultaneous  equations  (if  any)  and  group  them 
together  into  the  model  data  base.  Next,  after  completeness 
analysis,  the  'sequencing'  phase  will  order  mechanically  the 
assertions  according  to  causality,  for  efficiency  of  the 
solution  process  in  the  generated  program.  A solution 
method*  should  be  specified  by  the  user  whenever  MODEL 
identifies  groups  of  simultaneous  equations,  together  with 
the  associated  parameters  of  the  selected  solution  procedure 
(for  instance  initial  values  and  convergence  criteria  at  the 
variable  level).  For  every  group  of  simultaneous  equations 


* Presently  only  the  Gauss-Seidel  iterative  technique  for 
solution  of  nonlinear  simultaneous  equations  is 
implemented.  It  is  expected  however  that  other  methods 
such  as:  Newton's  for  nonlinear  equations  or  Gaussian 
elimination  for  linear  equations,  will  be  added  to  the 
MODEL  base. 
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in  the  description,  MODEL  will  automatically  generate  the 
necessary  code  for  the  chosen  method  of  solution.  This 
process  is  transparent  to  the  user.  For  instance  the  user 
can  maintain  the  view  of  a languaqe  to  state  mathematical 
relationships,  independently  of  processes,  by  observing  that 
simultaneous  equations  are  characterized  by  recursive 
references  between  data  names  (strongly  connected 
components)  for  which  it  is  possible  to  generate  an 
iterative  solution  process  whose  convergence  characteristics 
are  determined  by  conditions  stated  in  the  contracting 
mappinq  theorem. 

3.3.2  Description  of  Klein  Model-I 

A small  Keynesian  income-expenditure  model  of  the  U.S. 
economy  by  Klein  [KLE  50]  will  be  used  to  illustrate  the 
specification  of  a simulation  module  for  an  estimated  macro 
economic  model.  This  model,  known  as  Model-I,  has  been 
traditionally  used  both  as  tutorial  and  bench  mark  for 
testing  new  estimation  techniques.  Its  purpose  in  this 
chapter,  however,  is  to  illustrate  a different  modelinq 
process;  that  of  formulating  information  requirements  and 
structuring  the  data  to  satisfy  those  requirements.  Doinq 
so  through  MODEL  seems  an  appropriate  way  of  introducing  the 
language  features. 
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The  model  was  estimated  with  annual  data  from  1921-1941. 
Aggregate  consumption  (C)  is  a function  of  current  and 
lagged  profits  (P) , and  the  sum  of  the  waqe  bill  in  private 
industry  (Wl)  and  government  (W2) : 

C = cf^o+  0(|W  + oC^P  + o(j  P_(+  'u'| 

W = Wl  + W2 
where*  oC 0 = 16.79 
<^,=  0.800 
o(z=  0.020 
<*3=  0.235 

Net  investment  (I)  is  given  in  terms  of  current  and 
lagged  profits,  and  capital  stock  at  the  beginning  of  the 
year  (K_, ) . 

1 = (V  (3,  P + K_,  + 

where*  fi0=  17.78 
fi,=  0.231 
P>2.=  0.546 
(^3  =-0.146 

Finally  a labour  demand  equation  gives  the  private  waqe 
bill  as  a function  of  national  income  (Y)  plus  business 
taxes  (R)  less  the  government  wage  bill  (equal  to  private 
product  (E)),  both  current  and  lagged,  together  with  a time 
trend  T1  measured  in  calendar  years. 


* Estimates  reported  are  obtained  by  the  method  of  full 
information  maximum  likehood. 


66 

W1  = yo  + X E + )}  E_!+  ^3  (Tl-1935)  + U3 

E = Y + R - W2 
where*  <^o  = 1.600 
y i = 0.420 
Yx=  0.164 
Y,  = 0.135 

The  identities  closing  the  system  are  the  expenditures 
and  income  definition  of  national  income  plus  the  definiton 
of  net  investment: 

Y + R = C + I+  G 
Y = W + P 
I = K - K_, 

The  endoqenous  variables  are  C,  I , Wl,  Y,  P,  K,  W and  E 
and  the  exogenous  variables:  W2,  R,  G and  Tl. 

Notice  that  in  the  specification  of  the  Model-I 
equations,  for  simplicity  the  time  subscript  (t)  has  been 
left  out  from  every  description,  but  it  is  implicit  in  every 
variable  (i.e.,  Ifc  * Kt  - Kt-i  etc.).  The  MODEL 
specification  presented  later  in  section  3. 4. 4. 4 will  be 
structured  in  such  a way  as  to  closely  resemble  this 
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Data  is  read  from  file  BANK  and  coefficients  from  file 
PARAM.  The  user  will  enter  the  required  simulation 
parameters  via  the  terminal.  This  source  file  is  identified 
as  INPUT  and  contains  parameters  such  as:  starting  year  for 
the  simulation,  number  of  periods  to  simulate  and  a code 
indicating  the  type  of  simulation  (i.e..  Dynamic,  One-period 
or  Residual  checks).  Two  output  or  target  files  are  used: 
the  complete  solution  will  be  kept  in  a disk  file  called 
CONTROL,  while  selected  variables  are  given  to  the  user 
terminal  through  a file  called  REPORT.  INPUT,  REPORT  and 
PARAM  ate  defined  as  sequential  files,  whereas  BANK  and 
CONTROL  are  index  sequential  (ISAM)  files  keyed  by  variable 
number  for  more  efficient  retrieval  of  individual 
time-series.  A third  source  file  called  DOCMENT  contains 
documentation  for  the  different  sources  of  data  associated 
with  the  variables  in  the  databank  BANK.  The  description  of 
a time-series  in  BANK  will  include  a list  of  reference 
numbers  to  be  used  as  "pointers"  to  a oarticular  source  of 
data.  Therefore  DOCMENT  is  also  an  ISAM  file  with  the  data 
reference  number  used  as  key.  Since  many  variables  in  BANK 
may  share  the  same  sources  of  data,  this  configuration  will 
save  the  duplication  of  information  which  will  occur  if  the 
sources  of  data  were  incorporated  as  part  of  each 
time-series. 

A separate  file  (CONTROL)  is  kept  for  storing  the 
solution,  so  that  other  programs  could  later  access  it  and 
compare  with  the  historical  data  in  BANK  for  error  analysis. 
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The  solution  file  uses  the  same  structure  as  BANK.  By  so 
doing  it  is  posible  to  use  CONTROL  as  input  (source)  file 
lateL , instead  of  BANK,  to  study  "multiplier"  effects.  The 
"shocked"  solution  will  then  be  stored  on  another  file  with 
the  same  structure  as  CONTROL  for  later  comparisons. 

The  data  description  section  of  the  example  is  given  in 
a very  general  format,  assuming  the  objective  simulation 
program  will  be  used  by  other  models  which  may  be  annual  or 
quarterly  and  with  possible  variable  number  of  observations 
for  the  time-series  in  the  databank.  If  the  descriptions 
were  limited  to  the  solution  of  the  model  in  this  examole 
only,  with  annual  data  from  1921  to  1941,  8 equations  and  4 
exogenous  variables,  it  will  be  possible  to  substantially 
reduce  the  complexity  of  the  given  description. 


3.3.4  Basic  Concepts  and  Definitions 


Information,  in  order  to  be  usable  for  reference  or 
computation,  must  be  modelled  into  appropriate  data 
structures.  This  modeling  process  involves  the  collection 
of  data  about  objects  or  entities  which  are  meaningful  to 
the  system,  as  well  as  providing  the  necessary  descriptions 
for  the  repository  of  this  data  in  terms  of  its  logical 
structure . 

The  data  description  facilities  of  MODEL  are  used  to 
provide  a "template"  of  the  hierarchical  and  spatial 
relationshiDS  among  data  instances.  The  following  keywords 

1 


. ■ i i ■«  'i  if  ilw— ■ 


■ 


70 

ate  used  to  compose  data  description  statements  expressing 
these  relationships.  The  basic  element  of  interest  is  the 
object  or  event  occurring  in  the  real  world.  This  will  be 
referred  as  a RECORD  element.  Associated  with  this  entity 
there  exists  a set  of  attributes  or  basic  items  , be  single 
units  with  an  associated  value,  or  a collection  or  group  of 
items.  Each  of  this  items  is  called  a FIELD.  A FIELD  is 
the  basic  unit  of  information  and  cannot  be  further  divided 
into  subunits.  A third  type  of  data  description  statement 
is  the  GROUP.  This  is  an  intermediate  data  structure  used 
as  generic  collector  of  related  RECORDS,  FIELDS  or  other 
GROUPS. 

Figure  3.4  shows  a "tree"  like  structure  depicting  the 
hierarchical  organization  selected  for  each  elementary 
record  representing  a time-series  in  the  databank  of  the 
simulation  example. 
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An  explanation  of  the  elements  involved  in  this  "model" 
for  a time-series  follows: 

The  NAME  is  a group  composed  of  two  elements  (fields):  a 
LABEL  for  use  in  summary  output  representation  and  a TITLE 
containinq  the  complete  characterization  of  the  variable. 
The  NUMBER  field  is  used  for  reference  in  the  model 
description  as  well  as  "key"  of  the  file  organization.  The 
TYPE  of  variable  is  also  defined  as  a qroup  with  a CODE 
entry  for  identification  between  endogenous,  exoqenous, 
definitional  etc.  types  and  the  units  of  measurements  is 
entered  in  the  corresponding  UNITS  field.  The  RANGE  qroup 
needs  little  explanation,  it  identifies  the  starting  period 
and  total  number  of  observations  of  the  time  series  as  well 
as  it  periodicity  (i.e.,  annual,  quarterly  etc.).  REF#  is 
an  identification  number  which  uniquely  determines  the 
sources  of  data  for  a time-series.  Since  this  may  come  from 
several  sources,  it  is  defined  as  a field  with  variable 
number  of  repetitions.  The  field  ENDREF  contains  a 
delimiter  character  to  be  later  used  in  determining  the 
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A collection  of  these  basic  entities  (RECORDS  or  GROUPS 
of  RECORDS)  is  kept  in  a FILE,  the  largest  aggregate  of 
information  in  MODEL.  There  must  be  only  one  FILE 
associated  with  any  RECORD  (one  to  many  relationship)  and 
also  one  RECORD  associated  with  any  terminal  unit  or  FIELD. 
Finally  the  direct  "ancestor"  or  "parent"  of  a FILE  is  the 
MEDIA  statement.  This  tyoe  refers  to  physically 
recognizable  entities  such  as  disks,  tapes,  terminals, 
cards,  etc. 

All  these  different  data  description  statements  can  be 
depicted  as  a tree  like  hierarchical  structure  with  the 
MEDIA  type  at  the  root  of  the  tree  and  the  FIELDS  as 
terminal  nodes.  This  representation  is  illustrated  in 
Figure  3.5.  The  intermediate  GROUP  elements  in  brackets 
'{}'  are  optional,  and  can  occur  0 or  more  times  '*  1 (i.e., 
GROUP  of  GROUP'S  are  possible). 
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Hierarchical  Data  Description  Statements  in  MODEL 
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DISK  IS  MEDIA  (UNIT=3330) 

— > BANK  IS  FILE  (DISK) 

| — > TIMJSER  IS  RECORD  ( BANK , ( * ) ) 

| — > NAME  IS  GROUP  (TIM_SER) 

I | — > LABEL  IS  FIELD  (NAME) 

| | — > TITLE  IS  FIELD  (NAME) 

| — > NUMBER  IS  FIELD  (TIM  SER) 

| — > TYPE  IS  GROUP  (TIM_SER) 

| | — > CODE  IS  ELD  (TYPE) 

| I— > UNITS  IS  FIELD  (TYPE) 

I— > RANGE  IS  GROUP  (TIM_SER) 

( ( — > START  IS  GROUP  (RANGE) 

| | | — > YEAR  IS  FIELD  (START) 

j | | — > PERIOD  IS  FIELD  (START) 

I j — > OBS  NUM  IS  FIELD  (RANGE) 

j j — > NUM~PD_YR  IS  FIELD  (RANGE) 

|— > REFS  IS  FIELD  (TIM  SER  , ( 1 : 20)  ) > 

j — > ENDREF  IS  FIELD  (TTM_SER) 

| — > DATA  IS  FIELD  (TIM_SER , (03S_NUM ) ) 

— > PARAM  IS  FILE  (DISK) 

|-->  COEFF  IS  GROUP  (PARAM) 

| — > CONSUMP  IS  RECORD  (COEFF) 

| | — > ALPHA  IS  FIELD  ( CONSUMP f ( 4 ) ) 

| — > INVESTM  IS  RECORD  (COEFF) 

| |— > BETA  IS  FIELD  ( INVESTM ,( 4 ) ) 

| — > WAGES  IS  RECORD  (COEFF) 

I— > GAMMA  IS  FIELD  (WAGES,  (4)) 

— > DOCMENT  IS  FILE  (DISK) 

| — > REFREC  IS  RECORD  ( DOCMENT ,(*) ) 

| — ~>  REF#  IS  FIELD  (REFREC)  < 

I — > DESCRIPTION  IS  GROUP  (REFREC) 

I | — > TITLE  IS  FIELD  (DESCRIPTION) 

| | — > VOL#  IS  FIELD  (DESCRIPTION) 

| | — > DATE  IS  FIELD  (DESCRIPTION) 

| | — > PUBLISHER  IS  FIELD  (DESCRIPTION) 

| | — > AUTHOR  IS  FIELD  (DESCRIPTION) 

I — > COMMENT  (REFREC) 

— > CONTROL  IS  FILE  (DISK) 

| — > TIM  SER  IS  RECORD  (CONTROL,  (TOT  VAR)) 


Figure  3.6 

Data  Network  of  Source  Files  in  Disk 
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Figure  3.6  illustrate  the  network  organization  of  all 
source  files  in  a disk  medium  involved  in  the  example.  The 
hierarchical  organization  is  given  by  indentation  an  by  the 
arrows  at  the  left  of  the  diagram.  The  arrow  at  the  right 
hand  side  indicates  an  inter-file  relationship  between  the 
BANK  and  DOCMENT  files.  The  reference  number  key  (REFf)  in 
the  TIM_SER  record  can  be  used  to  access  the  corresponding 
REFREC  record  in  the  DOCMENT  file  (refer  to  section  3.3.4 
for  further  details  on  interfile  relationships). 

Every  node  of  the  tree  in  Figure  3.4  is  represented  by  a 
line  in  the  specification  corresponding  to  the  BANK  file  in 
Figure  3.6.  Also  every  node  with  the  exception  of  the  root 
of  this  tree  like  structure  (the  MEDIA  declaration)  is  a 
subpart  of  another  higher  node.  These  relations  between 
parents  and  descendants  nodes  ate  expressed  in  the  language 
as  an  attribute  of  the  data  names.  The  patent  name  is 
written  as  the  first  element  in  a list  of  parameters 
enclosed  in  parenthesis  for  each  declaration. 

The  files  are  progresively  subdivided  into  records, 
groups  and  fields.  Where  data  repeats  a variable  number  of 
times,  this  is  indicated  by  giving  the  minimum  and  maximum 
ocurrences.  For  example  the  REF#  field  can  repeat  between  1 
and  20  times  (1:20).  An  assertion  must  be  provided  in  the 
specification  to  compute  the  actual  number  of  repetitions, 
unless  this  is  given  in  the  description  as  being  the  content 
of  another  source  field.  For  instance  the  field  DATA 
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occurences  is  given  by  the  content  of  the  field  OBS  HUM  in 
the  given  specification.  When  the  symbol  (*)  is  used  in  a 
repeating  item,  it  indicates  that  the  actual  number  of 
occurrences  is  determined  by  the  processor  itself,  using 
some  physical  delimiter  such  as  end-of-file  or  end-of-r ecord 
marks. 

There  may  be  other  type  of  attributes  associated  with  a 
particular  data  declaration.  For  instance  the  root  or  too 
element  of  the  tree  does  not  have  a oarent  name  as  an 
attribute,  however  it  contains  such  parameters  as  UNIT=3330 
which  identifies  the  physical  device  code  for  the  random 
access  disk.  MODEL  provides  a number  of  parameters  which 
are  particular  to  specific  declarations.  These  must  be 
provided  by  the  user.  For  instance  the  processor  needs  to 
know  the  tyoe  and  length  attributes  associated  with  a 
particular  field.  If  in  the  given  example  a LABEL 
consisting  of  a string  of  eight  characters  for  a time  series 
is  to  be  stored  in  the  group  NAME,  then  it  is  necessary  to 
specify  it  as  follows: 

LABEL  IS  FIELD  (NAME , (CHAR ( 8) ) 

For  a numeric  field  such  as  the  starting  year  of  the 
series  the  description  could  be  entered  as 

YEAR  IS  FIELD  ( START , NUM ( 4 ) ) 

In  a FILE  declaration  it  will  be  necessary  to  specify 
the  access  method  to  be  employed  with  it.  If  the  time 
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series  are  ordered  by  the  field  NUMBER,  and  every  record  can 
be  accessed  by  this  index,  then  it  must  be  stated  as 
follows : 

BANK  IS  FILE  ( DISK , KEY=NUMBER ) 

There  are  default  values  provided  by  MODEL  for  most  of 
this  parameters.  Others,  if  not  given  by  the  user,  are 
deduced  by  the  processor  in  accordance  to  the  analysis  of 
the  totality  of  the  statements. 

The  syntax  and  semantics  specification  for  every 
component  of  the  languaqe  is  given  in  section  3.4  while 
illustrating  the  requirements  for  the  simulation  example  of 
Klein's  Model  I. 

3.3.5  Interfile  Relationships 

Many  applications  require  to  coordinate  or  express  a 
relationship  between  occurrences  of  records  in  one  file  and 
instances  of  records  in  a different  file.  This  is 
equivalent  to  a view  of  the  data  base  as  a network  of 
inter-related  files.  This  facility  permits  the  partition  of 
the  data  base  into  files  containing  only  closely  related 
data,  and  at  the  same  time  it  avoids  excessive  duplication 
of  common  information  between  the  files.  If  the  value  in 
the  field  of  a given  file  uniquely  determines  or  identifies 
a corresponding  record  in  another  file,  then  it  is  said  that 
the  field  in  the  first  file  coordinates  or  "point"  to  the 
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record  occurrence  in  the  second  file.  In  MODEL  this 
coordinating  rules  are  established  by  describing  a POINTER 
type  relationship.  For  instance  in  the  data  network  shown 
in  Figure  3.6,  each  entry  of  the  field  REFf  in  file  BANK 
points  to  a particular  record  REFREC  describing  the  sources 
of  data  in  file  DOCMENT.  Since  different  time-series  may 
share  a common  documentation  record,  there  exists  a 
many-to-one  relationship  in  this  file  structure.  The 
content  of  each  REFREC  record  contains  information  for  the 
attributes  associated  with  the  origination  of  a given 
variable  such  as:  date  and  title  of  the  publication  where 
the  statistics  were  obtained  for  a sample  period.  The  field 
REF#  in  the  DOCMENT  file  should  also  be  declared  as  the 
"key"  of  the  file  organization  as  follows: 

DOCMENT  IS  FILE  (DISK , KEY=REF# ) 

and  the  relationship  between  the  records  of  file  BANK  and 
those  of  file  DOCMENT  is  expressed  by  the  following 
declaration : 

POINTER. DOCMENT. REFREC  = BANK . TIM_SER. REF# ( FOR_EACH  REF#) 

This  can  be  read  as  follows:  each  occurrence  of  field 
REFf  in  record  TIM_SER  of  file  BANK  "points  to"  a record 
REFREC  of  file  DOCMENT.  This  process  of  concatenation  using 
the  (.)  symbol  from  parent  name  to  descendant  name  until  a 
field  is  identified,  is  known  as  name  qualifying.  Qualified 
data  names  are  used  to  distinguish  between  terminal  nodes 
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which  use  the  same  data  name.  If  the  names  are  unique, 
there  is  no  necessity  for  qualification,  since  this  will  be 
done  automatically  by  the  processor.  POINTER  is  a reserved 
word  in  the  languaqe.  It  must  be  used  as  a qualifier  for  a 
pointer  type  relationship. 

Since  REF#  is  defined  as  a repeatinq  data  name,  it  is 
necessary  to  subscribe  it  with  the  expression  "FOR_EACH 
REF#"  to  indicate  all  occurrences  of  the  repeatinq  field. 
Further  explanation  on  the  use  of  subscripts  is  given  in  the 
following  sections. 

3.3.6  Relating  TARGET  to  SOURCE  Data 

In  formulating  a model  it  is  necessary  to  express 
relationships  holdinq  between  data  coming  into  the  system, 
called  SOURCE  data,  and  data  to  be  produced  by  the  system  or 
TARGET  data.  These  relationships  are  described  with  a 
notation  similar  to  the  one  used  in  mathematical  formulae  or 
equations.  Since  they  are  used  to  map  the  content  of  fields 
from  source  files  to  the  fields  of  target  files  by  stating 
the  actual  mathematical  relationship  between  them  (directly 
or  indirectly  if  INTERIM  variables  are  used),  they  are 
referred  as  ASSERTIONS  in  MODEL  languaqe. 

In  the  simulation  example  of  Figure  3.1,  the  user  will 
be  required  to  relate  the  fields  of  the  tarqet  files  CONTROL 
and  REPORT  to  fields  in  the  source  files  INPUT,  PARAM  and 
BANK.  The  documentation  file  DOCMENT  can  be  used  both  as 
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source  file,  to  obtain  soecific  documentation  for  report 
generation,  and  as  target  file  by  generating  a new  REFRFC  in 
the  module  description.  This  new  record  will  identify  the 
values  of  endogenous  variables  in  the  CONTROL  file  as  being 
generated  by  a "dynamic  simulation"  from  the  specification 
of  Klein's  Model  I.  Figure  3.7  shows  some  formulations 
using  arithmetic  expressions  as  well  as  free  text  in  the 
form  of  'string'  constants. 

Variable  names  which  are  used  in  the  computational 
description,  but  which  are  not  defined  in  the  source  or 
target  data  description,  are  called  INTERIM  variables  and 
should  be  described  as  such.  They  can  be  used  as  synonyms 
of  other  data  names  or  needed  to  express  relationships 
between  data  in  the  files. 

Target  fields  using  the  same  name  as  corresponding 
source  fields  need  not  to  be  explicitly  related  by  an 
assertion.  By  implication  they  are  assumed  equal.  For 
instance  the  fields  from  the  NAME  qroup  in  BANK  and  CONTROL 
files  , if  not  related  by  an  assertion,  are  assumed  to 
contain  the  same  data  by  the  processor. 
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TITLE. YEAR  = 'YEAR' 
TITLE. PERIOD  = ’PERIOD’ 


F igure 
Assertions  for 


3.7a 

Title  Heading 


OUT_YEAR  = SIM_YEAR  + (NP  + SIM_PD  - 2)  / NUM  PD_YR 
OUT_PD  = MOD  (NP  + SIM  PD  - 2 , NUM  PD  YR)  + 1; 


Assertions 
Simulation  in 


Figure  3.7b 

to  Compute  Year  and  Period  of 
Actual  Period  NP  for  File  REPORT 


INCOME: 


Y (T)  = C (T)  + I (T)  + G (T)  - R (T)  ; 
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3.3.7  Use  of  Subscripts:  Iteration 

The  treatment  of  subscripts  as  entities  which 
coordinates  occurrences  of  repetitive  associate  data  names, 
but  which  are  free  from  control  iterative  statements  like 
the  DO  loop  found  in  most  programming  languages,  is  one  of 
the  powerful  features  of  MODEL. 

A repeating  data  name  can  be  subscripted  by  a <subscriDt 
expression>  or  by  a variable  which  is  declared  as  a 
SUBSCRIPT  type  variable.  A <subscript  expression>  is  an 
arithmetic  expression  with  a subscript  as  operand.  A 
subscript  can  be  an  integer  or  a variable.  If  it  is  a 
variable,  the  subscript  keyword  FOR__EACH  followed  by  a 
reference  to  a repeating  predecessor  data  name  can  be  used 
whenever  all  occurrences  are  implied.  If  the  repeating  data 
name  itself  repeat,  the  predecessor  data  name  can  be 
omitted.  The  symbol  (*)  can  be  used  as  synonym  of  FOR_EACH . 
Other  subscript  variables  can  be  used  if  declared  with 
SUBSCRIPT  statement. 

Figure  3.8  shows  some  examples  of  the  use  of  subscripts 
in  composing  the  soeci f ication  for  Model  I.  The  first 
example  (3.8a)  illustrate  four  equivalent  ways  to  refer  to 
every  occurrence  of  the  field  DATA  in  the  first  record  of 
file  BANK.  In  Figure  3.8b,  NP  is  defined  as  a subscript 
ranging  from  1 to  SIM_NP,  the  total  number  of  periods  to 
simulate.  T is  in  turn  defined  in  terms  of  the  subscript  NP 
and  used  as  time  index  in  the  assertion  for  the  consumption 
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function. 

Subscripts  are  associated  with  a parent  repeating  data 
structure.  It  is  always  advisable  to  identify  the 
<patent-name>  when  specifying  a subscript.  This  is  done  by 
providing  the  name  of  the  associated  parent  as  the  first 
parameter.  For  instance  if  OUTPUT  is  the  repeating  data 
structure  indexed  by  subscript  NP,  the  comolete  declaration 
should  be: 

NP  IS  SUBSCRIPT  (OUTPUT, 1,SIM_NP, 1) ; 

The  completeness  analysis  phase  will  nevertheless 
provide  the  appropriate  <parent-name>  to  a free  subscript  if 
this  is  missing. 

It  is  also  possible  to  define  a subscript  variable 
inside  the  assertion  itself  by  usinq  the  extended  form  of 
the  assertion  with  <if -or-for-clause> . This  implies  that 
the  subscripted  variable  scope  is  limited  locally  to  that 
particular  assertion.  Figure  3.8c  shows  examples  of  the  use 
of  subscripts  with  this  format  to  assign  lagged  historical 
data  into  interim  variables. 
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BANK . TIM_SER ( 1 ) . DATA ( FOR_EACH  DATA) ; 

TIM__SER.  DATA  ( 1 , FOR_EACH  DATA); 

BANK. DATA (1,*)  ; 

BANK. DATA (1)  ; 

Figure  3.8a 

Equivalent  References  for  a Repeatinq  Field 

NP  IS  SUBSCRIPT ( ( 1 , S IM_NP ) ) ; 

T = NP  + MAXLAG ; 

CONSUMPTION: 

C (T)  = ALPHA ( 1 ) + ALPHA ( 2 ) * W(T) 

+ ALPHA ( 3 ) * P (T)  + ALPHA ( 4 ) * P(T-l); 

Figure  3.8b 

Consumption  Function  in  Model  I with  Subscripts 

FOR  J = 1 TO  MAXLAG  LET  E(J)  = BANK . DATA ( 8 , LAG ( 8 ) +J ) ; 

FOR  J = 1 TO  MAXLAG  LET  P(J)  = BANK . DATA ( 9 , LAG ( 9 ) + J ) ; 

FOR  J = 1 TO  MAXLAG  LET  K(J)  = BANK . DATA ( 1 1 , LAG ( 1 1 ) +J ) ; 

Figure  3.8c 

Use  of  Subscripts  in  Extended  Form  of  an  Assertion 
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Iteration  in  the  proqram  will  be  implied  by  declaration 
of  subscripts,  but  it  is  not  explicitly  indicated  in  the 
module  specification  by  bounded  nested  DO  loops. 

Subscripts  are  used  as  an  alternative  to  the  use  of 
POINTERS  to  coordinate  data  structures.  They  may  be  more 
natural  when  used  to  express  relationships  between  source 
and  target  data  because  of  their  resemblance  to  normal 
mathematical  notation.  However  when  subscriots  are  used  to 
coordinate  instances  of  data  descriptions  in  a module,  they 
affect  their  independence  of  statements.  As  a consequence 
different  modules  which  may  want  to  share  the  same  data 
description  but  the  same  coordination  could  not  do  so. 
POINTER  assertions,  on  the  other  hand,  are  independent  of 
data  descriptions,  and  therefore  preferred  to  express  these 
coordinating  rules. 

3.3.8  Use  of  Functions 

Functions  can  be  used  to  pass  a value  that  is  a result 
of  a computation.  They  can  be  referenced  in  any 
arithmetical  or  logical  expression  by  its  name  followed  by  a 
list  of  arguments  separated  by  commas  and  enclosed  in 
parenthesis. 


Functions  are  important  elements  in  MODEL,  since  they 
are  used  to  complete  the  language  in  applications  which 
require  specific  procedural  computations.  Modelinq  in 
particular  require  specif ication  of  complicated  statistical 


and 


aiithmetic  formulae 
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as  opposed  to  the 


simple 


relationships  needed  for  some  other  data  processing 
applications.  In  this  sense  functions  provide  a mechanism 
for  extending  the  application  knowledge  data  base  of  MODEL. 
They  also  serve  as  synonyms  for  conventional  mathematical 
notation.  For  examnle  the  SUM  function  is  similar  to  the 
’ ZI'  symbol  used  in  mathematical  notation  to  denote 
summation.  This  and  other  functions  used  in  model  building 
such  as  MINV  foL  the  inversion  of  matrices,  TRANSP  for  the 
transposition  of  matrices  and  other  general  functions  for 
the  generation  of  random  variates  are  described  later  in 
chapter  8 of  this  dissertation  dealing  with  the  use  of  MODEL 
in  the  estimation  phase  of  a model. 

All  built  in  functions  available  in  the  PL/1  library  can 
be  employed  in  MODEL.  These  include  the  conventional 
arithmetic  functions  (ADD,  ABS,  MIN,  MAX,  MOD,  etc.), 
standard  mathematical  functions  (LOG,  EXP,  SIN,  COS,  etc.) 
and  string  handling  functions  (INDEX,  SUBSTRING,  etc.). 

The  user  can  always  define  new  functions  in  PL/1  and  add 
them  to  the  library.  Function  names  are  reserved  words  of 
the  language  and  should  not  be  used  to  name  data  or 
variables.  In  case  of  ambiguities  the  user  should  identify 
the  functions  referred  in  an  assertion  by  declaring  a 
FUNCTION  statement  for  the  assertion  with  a list  of  function 
reference  names  used  in  that  assertion. 

In  Figure  3.3  of  the  Data  Network  the  record  TIM  SEP 


i 
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repeats  TOT  VAR  times.  Since  this  field  is  not  declared  as 
a source  field,  an  assertion  must  be  provided  to  compute  the 
actual  number  of  occurences.  A function  COUNT  is  provided 
by  MODEL  which  computes  or  "count"  the  number  of  records 
read  of  the  given  record  name  parameter: 

TOT_VAR  = COUNT  (BANK.TIM_SER) ; 
the  assertion  indicates  that  the  number  of  records  in  file 
CONTROL  repeats  as  many  times  as  TIM_SER  records  exists  in 
file  BANK. 

Figure  3.7b  on  the  other  hand  shows  the  use  of  the  PL/1 
function  "modulo"  M0D(xl,x2)  which  returns  the  smallest 
positive  value  R,  such  that 

(xl  - R)/x2  = n 

where  n is  a positive  integer. 

After  this  introduction  to  the  capabilities  of  the 
language  and  to  the  example  presented  in  section  3.3,  next 
section  proceeds  to  the  composition  of  the  complete 
specification  of  the  module. 
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3.4  Module  Specification 

This  section  describes  the  various  statements  in  MODEL 
while  composinq  the  specification  for  the  simulation  examDle 
presented  in  section  3.3.  A formal  description  of  the 
syntax  of  the  language  in  Extended  Backus  Normal  Form  (EBNF ) 
is  given  in  [SHA  78]. 

3.4.1  General 

The  statements 
order.  However,  as 
of  statements  can 
"sections " : 

(1)  Header  Definition  Section; 

(2)  Data  Description  Section;  and 

(3)  Computation  Description  Section. 

3. 4. 1.1  Syntax  Notation 

In  describing  the  syntax  of  MODEL  statements  below,  a 
conventional  notation  similar  to  Extended  Backus  Normal  Form 
(EBNF)  will  be  followed.  Capital  letters  will  be  used  to 
denote  MODEL  vocabulary  words  or  keywords  of  the  language. 
These  must  be  provided  "as  is"  by  the  user.  Names  in  lower 
case  letters  and  enclosed  in  anole  brackets  < > refer  to  a 
generic  class  for  which  the  user  must  substitute  an  specific 
name  or  value  item.  Square  brackets  [ ] will  be  used  to 


describing  the  model  can  occur  in  any 
shown  in  Figure  3.2,  the  different  tyoes 
be  divided  into  three  categories  or 


u 


^0 

indicate  that  the  enclosed  portion  is  oDtional  (0  or  1 
occurrence).  Squaie  brackets  followed  by  an  asterisk  f 1* 
indicates  optional  number  of  repetitions  for  an  item  (0  or 
mote  occurrences).  Alternatives  are  indicated  by  the  symbol 
"I"  meaning  "or".  Two  colons  followed  by  an  equal  siqn 
are  used  to  denote  the  exoansion  of  an  element  into 
its  components  and  can  be  read  as  "is  defined  as". 

3. 4. 1.2  Character  Set 

The  character  set  of  MODEL  is  the  same  as  that  of  PL/1, 
consisting  of  60  characters.  These  include  26  letters,  10 
digits,  4 alphabetic  characters  and  20  special  characters. 

<letter>  : :=  A I B | C |Y|Z 

<digit>  01112...  ...|8|9 

<alpha~character > @ I I # 1 $ 

<special  characters  blank  I . I < I ( I + I I I s I * I ) I ; 

I l-l/l , I % I > I ? I : I '1  = 

The  special  character  I is  underlined  to  differentiate 
it  from  the  metalanguage  symbol  used  for  alternatives. 

3. 4. 1.3  Operators 

The  following  symbols  are  used  to  denote  ooerators: 

<ar ithmetic-operator s>  <olus> I <minus> I <multipl ication> 

l<division>| <exDonentiation> 

<plus>  + 
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<minus>  : : = - 
<multipl ication>  ::=  * 

<di vision>  : : = / 

<exponentiation>  ::=  ** 

<compai ison-opet ators>  ::=  <qt> I <not-qt> I <gt-or-eq> 

I <eq> I <not-eq> |<lt-or-eq>|<lt>|<not-lt> 

<qt>  : : = > 

<not-gt>  : : = > 

<gt-OL-eq>  : : = >= 

<eq>  : : = = 

<not-eq>  = 

<lt-oi -eq>  : : = <= 

<lt>  ::=  < 

<not-lt>  : : = < 

<loqical  operators>  <not> | <and> I <ot > 

<not>  : : = 

<and>  ::=  & 

<or  > : : = J_ 

<str ing-operator > ::=  <concatenation> 

<concatenation>  : : s II 

<gi oup-operators>  ::=  (|) 

3. 4. 1.4  Names 

Data  or  variable  <name>s  can  consists  of  any  combination 
of  <letter>s,  <digit>s  or  <alpha-char acter >s , but  the  first 
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character  of  a 

<name> 

must 

be 

a 

<letter  > 

or 

<alpha-chat  actei > . 

character  s . 

The 

length 

must 

not 

exceed 

31 

3. 4. 1.5  Use  of  Blanks 

One  or  mote  blanks  can  be  used  freely  in  the 

declarations  as  delimiters  between  words  of  the  language. 

3. 4. 1.6  Comments 

Comments  are  permitted  and  can  be  inserted  in  place  of 
any  blank  used  as  delimiter. 

<comment>  /*<character-str inq>*/ 

<chat acter-str ing>  may  contain  any  character  with  the 
exception  of  the  */  combination,  which  is  used  to  siqnal  the 
end  of  the  comment. 

3. 4. 1.7  Constants 

<str inq-constant>  ,<character-strinq>  ' 

<at ithmetic-constant>  <inteqer > I <decimal> 1 <binary> 

<inteqer>  can  be  any  combination  of  digits  with  values 
from  1 to  32767. 

<decimal>  and  <binarv>  constants  can  be  represented  as 
either  <fixed>  point  or  <floating>  point  numbers. 

<fixed>  point  data  consists  of  one  or  more  occurrences 
of  <digit>s  with  an  optional  <decimal >/<binary>  point.  If 


r 
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no  point  is  given,  it  is  assumed  to  the  right  of  the  least 
significant  digit.  A sign  may  ontionally  orecede  a <fixed> 
point  constant.  For  <binary>  <fixed>  ooint  data  the  letter 
B must  follow  immediately  the  constant,  without  intervenina 
blanks 

<floating>  ooint  constants  consists  of  a field  of  diqits 
followed  by  the  letter  E,  followed  by  an  optionally  siqned 
<decimal>  <integer>  exponent.  The  entire  constant  may  be 
signed  and  the  first  field  may  contain  a <decimal >/<binar y> 
point.  For  the  <binary>  constant  the  exponent  specifies  a 
power  of  2 and  is  immediately  followed  by  the  letter  B. 

examples  of  arithmetic  constants: 

38 

-0.438 

11101ES8 

3.1416 

-111.101B 


3.4.2  Composing  the  Heading  Definition  Section 

The  header  consist  of  four  statements  which  provide 
identification  information  for  a program  module:  1)  the 
module  name  statement,  2)  the  source  files  statement,  3)  the 
target  file  statement  and  4)  the  reference  statement. 


Following  is  a description  of  the  syntax  and  semantics 
of  each  of  these  statements. 


- 


—I 

* • 
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3. 4. 2.1  Module  Name  Statement 

Purpose ; Identifies  The  Module. 

Syntax:  MODULE:  <name>  [;] 

I <name>  [IS]  MODULE  (;] 


Semantics : <name>  is  assigned  to  the  module. 


3. 4. 2. 2  Source  Files  Statement 


Purpose : Identifies  input  or  source  files  to  the  module. 
Syntax : SfOUfRCE]]  [FILEfS]]  : <qname>  [,<qname>]*  [;] 

I <qname>  [,<aname>]*  [<is>]  S[OU(RCE]]  [FI LE [SI  [;] 


| ARE 

<is>  ::*  IS 
I = 


<qname>  ::=  <name  [.<name>] 


Semantics : List  of  <qname>s  are  source  or  input  files  to  the 
module.  If  any  <qname>  in  the  list  contains  two  <name>s, 
then  the  first  one  must  be  the  module  name  in  which  the 
source  file  is  described  and  the  second  <name>  is  the  file 
name  itself. 


3. 4. 2. 3  Target  Files  Statement 

f 

Purpose:  Identifies  output  or  target  files  of  the  module. 


Syntax : T[AR[GET])  [FI LE [ S ] s <qname>  [,<qname>]*  [;] 

I <qname>  [,<qname>]*  [<is>]  T [ AR [GET] ] [FILEfS]  [j] 


where  <qname>  and  <is>  have  the  same  syntax  as  in  the  source 
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Semantics : List  of  <qname>s  are  target  or  output  files  to 
the  module.  If  any  <qname>  in  the  list  contains  two 
<narne>s,  then  the  first  must  be  the  module  name  in  which  the 
tarqet  file  is  described  and  the  second  <name>  is  the  file 
name  itself. 

3. 4. 2. 4 Reference  Statement 

Purpose : Identifies  sections  of  data  or  comoutation 

description  previously  stored  in  a library  in  MODEL  data 
base . 

Syntax : REF(ER):  <qual i f ied-name > [ , <qual i f ied-name> ) * [;] 
<qualif ied-name>  ::=  <name> [ . <name> I * 

Semantics : Sections  given  by  <qualified-name>s  will  be 

searched  from  the  library  and  the  descriptions  available  in 
it  will  be  included  in  the  module  for  reference. 
<qual i f ied-name>s  are  used  in  this  context  to  avoid 
ambiguity  by  preceeding  a <name>  with  another  <name>  which 
is  an  ancestor  (section)  in  the  data  hierarchy.  The  first 
the  name  of  the  module  in  which  the  section 


<name>  must  be 


I 

i 

f ' 


l 
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3. 4. 2. 5 Header  Definition  for  Model  I 


The  header  definitions  in  Fiqure  3.9  essentially 
describe  the  block  diaqram  of  Fiqure  3.3.  This  particular 
specification  does  not  refer  to  any  previously  declared 
section,  hence  the  REFER  statement  is  omitted.  The 

commented  titles  are  used  for  purposes  of  documentation  only 
and  do  not  affect  the  specification  of  the  module.  The 

processor  treat  them  as  blanks. 

/*********************************************************/ 

/*  v 

/*  KLEIN  MODEL  I SPECIFICATION  V 

/*  */ 

/*********************************************************/ 

/*********************************************************/ 

/*  V 

/*  HEADER  DESCRIPTION  */ 

/*  */ 

/*********************************************************/ 

MODULE:  MODEL_I ; 

SOURCE  FILES:  BANK , PARAM , INPUT , DOCMENT ; 

TARGET  FILES:  REPORT , CONTROL , DOCMENT ; 


Figure  3.9 

Header  Definition  for  Model  I 


97 

3.4.3  Composinq  the  Data  Description  Section 

This  section  provides  definitions  for  the  statements 
which  describe  each  file  used  in  a given  module  and  their 
components:  records,  groups,  fields  and  associated 
assertions.  The  user  is  responsible  to  maintain  the 
hierarchical  and  spatial  organization  of  his  information 
requirements.  Network  structures  consisting  of  interfile 
and  intrarecord  associations  are  also  considered. 


3. 4. 3.1  Media  Statement 

Purpose : To  describe  the  physical  medium  on  which  a file  is 
stored  together  with  the  attributes  normally  reouired  to 
generate  the  Job  Control  Language  (JCL)  for  a particular 
hardware  installation. 


Syntax : <name>  [,<name>]*  [<is>]  MED [ I A ] 

l (<argument*>  [ , <argument>  ] * ) ] [;] 

<argument>  ::=  <blocksize-spec> 

I <recordsize-spec> 

I <organization-spec> 

| <recf m-spec> 

I <unit-spec> 

I <disp-soec> 

I <tape-label-snec> 

I <par ity-spec> 

I <ch at  code -spec > 

|<page-spec> 


Utffe 
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I <line-soec> 

| <ti ks-spec> 

I <density-soecs> 

I <int-label'Soec> 
I <tab-spec> 


+ 

I BS 

<blocksize-SDec> : : = [ BLOCKSIZE  ( < i s > J 1 <inteqer>  (;1 

I BLKSIZE 
+ 


+ 

I RL 

I LRECL 

<i ecoidsize-spec> : : » [ [ < i s > } <inteqer>  (;] 

I RECORDS IZE 
I RECSIZE 
+ 


<organization-spec>: := [ORG [ AN I Z AT I ON ) [<is>]  <oiq-tyoe>  [;] 


+ 

| D [ I RECT 1 

<Oiq-type> : : = INDEXED  SEQUENTIAL | IS  I ISAM 
I S ( EQ (UENTIAL] 1 ISAM 
I I INDEXED] 

+ 


+ 

I RP 

<tecf m-spec> : : = [ RECORDFORMAT 
I RECFM 
+ 


| U (NDEFINED) 

I FIXED  BLOCKED | FB 
[ < is>  1 ] V [ ARlSBLE ] | VB  [ ; J 

I F [ IXED] 

| VAR  SPANNED | VS 
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| SYSOUT 

| PUNCH  j 

ICARD 

+ I PRINT  1 

I UNIT  | TAPE 

<unit-spec> : : = [ [<is>]  ] DISK  f;) 

IDEVICE  | TERMINAL 

+ 13330 

I 3330-1 
13400-1 
I 2314 
12311 
12305 


<disp-spec> 


+ 

| SHR 
| OLD 

[DISP [OSITION]  [<is> ] ] < 

| NEW 
| MOD 

+ 


[;] 


i 


+ 

I NL 
I SL 
j NONE 

<tape-label-5Dec>: :=  TAPE_LABEL  [ < is  > ] IBM  STD  [;] 

| TL [ABEL]  |ANSI_STD 

+ | BLP 

| BYPASS 
+ 


<paL ity-soec> : : =PAR [ ITY]  [<is>]  ODD  [;] 

I EVEN 

+ 


+ + 

ICC  | EBCDIC 

<charcode-soec> : : = CHARCODE  [<is>]  BCD  (;] 

| CODE  | ASCI I 

+ + 


<page-soec> : : = P[AGE_SIZE]  (<is>]  <inteqei > (;] 

| LINES-PER-PAGE 

+ 


i. — : 

i + y-  . 

» • 


r 
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< 1 ine-SDec> : 


I WIDTH 
:=  LINESIZE 
I PAGE_WI DTH 
I LINE  WIDTH 


f<is>]  <inteqer>  [;] 


<trks-spec> : 


ITRKS  |7 

:=  TRACKS  [<is>l  < 
|NO_TRKS  |9 

+ +■ 


<density-spec> : 


= DEN [ S ITY ] f < i s > 1 < f;) 

I 800 
I 1600 
+ 


<int-label-spec>: 


= INT_NAME  [ < is> ] <name>  [;] 
| ILfABEL] 


I EL 

I VOLSER 


<ext-label-soec> 


I VOLUME 
I EXT  NAME 


l <is>]  <name>  ( ; 1 


<tab-spec> : : = TAB  (<is>]  [ ( < integer > I , < integer > 1 * ) ) (;1 


Semantics : The  list  of  <name>s  ate  desctibed  as  stotaqe 


medium  to  the  module.  The  associated  <aiqument>  list  qives 


the  physical  cnatacteiistics  of  a particular  storage  medium. 


Many  of  these  attributes  are  optional.  For  instance  CARD 


and  PUNCH  units  need  no  further  <arqument>.  Other  units 


require  more  information  as  follows: 
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UNIT  = TAPE  <taoe-descr iption> 

|DISK  <disk-descr  iption> 

I TERMINAL  <terminal-descriotion> 

I PRINT  <pt int-descr iption v 

<disk-description> : : = [ <blocksize-spec> , < records ize-spec>  , 

Crecf m-spec> ] [ ,<organization-spec>] 

[ ,<disp-spec>]  (,<int-label-sr>ec>] 

( ,<ext-label-snec>]  [ ,<trks-spec>] 

<tape-descL.'iotion>::  = r<blocksize-'Spec>,<recoi:dsize-soec>, 

<recf m-spec> ] [ , <disD-soec>l 

[ ,<int-label-spec>]  [,<ext-label-snec>l 
[,<tape-label-soec>]  [ , <par ity-spcc> ] 

(,  <char code-spec > ] [,<density-soec>] 

% 

<terminal-description>::=[<paqe-spec>]  [,<line-soec>] 

{ , <tab-spec> ] 

<PL int-spec> : : = [ <page-spec> ] { , <] ine-snec> 1 [ , <tab-spec> 1 

PRINTER  and  PUNCH  can  be  used  only  as  target  files. 

Most  of  the  information  in  the  media  statement  is  used 
to  generate  Job  Control  Language  (JCL)  for  a particular 
installation.  The  user  can  refer  to  the  PL/1  Reference 
Manual  for  further  assistance  in  the  semantics  of  some  of 
the  arguments. 
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t 


3. 4. 3. 2 File  Statement 


Purpose:  To  describe  a file  and  its  attributes 


Syntax:  <qname> [ , <qname> ] [<is>]  FI L [ E ] 

| REP [ORT] 


[ ( <parent-name>  [ , <argument>] *) ] [;] 


<qname>  and  <is>  have  the  same  syntax  as  described  in  the 
source  file  statement  section  3. 4. 2. 2.  The  <arqument>  list 
is  the  same  as  described  in  the  Media  statement  section 
3. 4. 3.1,  with  the  following  additions: 


<star t-f ile-spec> : : = FILE#  [<is>]  <inteqer>  [;] 

| START  FILE 

<key-soec> : : = KEY  [<is>]  <qua 1 i f ied-name>  [;] 


+ 

I FI LE_NAME 

<dsn-spec> : : = DSN [ AME] [ <is> ] <aual i f ied-name > [ ( <member > ) ] [ ; ] 
| DATASET 
+ 


< member  >: :=  <name> | +< integer  > I -< in teqeL  > 


<space-spec> : : = SPACE  ( < i s > ] <space-pars>  (;] 


+ 

I <integer  > 

I TRK 

<space-pars> : : = ( Track(S]  [,<inteqer>l 

|CYL[S] 

! BLOCKS | BLK 
+ 


[,  [<integer>l  [, [<inteqer>] ] 1 [ [ , 1 R [ EL [ EASE] ]] ) [;] 

I RLSE 
+ 
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Semantics : List  of  <qname>s  are  described  as  files  to  the 


module.  <par ent-name>  is  the  <name>  of  a parent  or  next 
section  higher  in  the  hierarchy  (i.e.,  the  name  of  a Media 
statement  for  a file).  <arqument>  <start-f ile-soec> 
indicates  the  proper  position  of  a file  in  a sequential 
medium  such  as  a tape.  The  <key-name>  <argument>  is  used  to 
indicate  on  which  field  the  file  is  ordered. 

In  creatinq  new  files  it  is  not  necessary  to  orovide 
additional  <arqument>s.  MODEL  will  provide  as  default 
standard  <argument>s.  For  existing  files  not  using  the 
normal  default  values,  it  is  necessary  to  provide  matching 
<argument>s  including  <dsn-spec>  as  well  as 

<blocksize-spec> , <recfm-spec> , <recordsize-soec> , 

<disp-spec>  etc..  The  <soace-spec>  is  needed  when  creatinq 
a new  file  and  the  user  wants  his  own  space  specifications. 

3. 4. 3. 3 Record  Statement 

Purpose : To  describe  records,  the  basic  unit  or  entity  of 
information  organisation. 

Syntax : <qual i f ied-name > [<is>]  REC [ORD] 

[ ( <parent-name>  f , <argument>] *) ] [;) 

<argument>: : =<occ> ( : <occ> ] 1 , <occ> | : <occ>] ) * 

<occ>::=  <integer> 

I <name> 

I* 

<qual if ied-name>  has  the  same  syntax  as  described  in  the 
reference  statement  section  3. 4. 2. 4 
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Semantics : <qualif ied-name>  is  the  name  of  the  record.  The 
record  is  an  entity  which  is  physically  delimited  in  the 
file  by  an  end-of -t ecord  mark.  The  <par ent-name>  must  be 
the  name  of  a section  one  level  hiqher  in  the  hierarchy  of 
the  tree  structured  description  (i.e.,  a File  or  Group 
statement).  The  list  of  <occ>ur r ences  qives  the  number  of 
repetitions  for  the  record.  The  first  <occ>urrence  of  a 
qroup  separated  by  colons  qives  the  minimum  <occ>urtence  for 
a particular  dimension,  whereas  the  <occ>urrence  followinq 
the  symbol  gives  the  maximum  number.  If  only  one 

<occ>urrence  appears  in  a qroup  , then  it  is  assumed  to 
represent  the  maximum  <occ>ut tence . The  asterisk  symbol 

is  used  to  indicate  a variable  number  of  repetitions  whose 
end  is  signaled  by  a physical  delimiter  (i.e.,  and 
end-of-file  delimiter). 

3. 4. 3. 4 Group  Statement 

Purpose : To  identify  the  name  of  a section  which  can  contain 
other  groups  and  fields,  or  other  groups  and  records. 

Syntax : <qualified-name>  (<is>)  GRO[UP] 

I GRP 

the  items  <qual i f ied-name>  and  <aroument>  have  the  same 
syntax  as  the  corresponding  items  in  the  Record  statement. 

Semantics : <qualif ied-name>  is  the  name  of  a qrouo. 
<pat ent-name>  must  be  the  name  of  a section  one  level  higher 
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in  the  hierarchy  of  the  tree-structured  description.  It 
could  be  the  name  of  a file,  another  group  or  a record.  The 
semantics  of  the  <arqument>  list  is  the  same  as  that  of  the 
Record  statement  section  3.4. 3. 3. 

3. 4. 3. 5 Field  Statement 

Purpose ; To  name  and  identify  the  basic  items  or  attributes 
which  compose  groups  or  records  and  to  give  the 
characteristics  of  the  data  which  they  contain. 

Syntax : <qualified-name>  [<is>]  FIF,  [ LD] 

I FLD 

( ( <parent-name>  [ , <argument> ] * ) ] [ ; ] 
<argument>::=(<occ>[:<occ>] [,<occ>[:<occ>] ]*) |<field-desc> 

I PIC { TURE ] ' f <pic-code>  [ (<lenqth>) ] ) * ' 

+ 

| FIXED 

| DEC [ IMAL] f , FLOAT] 

<f ield-desc>: :=  CHA [ R [ACTER] ] [ (<length> [ , <length>] ] 

| NUM [ERIC] 

| BIN [ARY] [, FLOAT] 

| BIT 
+ 

<length>: :=<qualified-name>| < integer > I * 

<pic-code> : :=B|X|A|9|VlZ|$|/|.|S|_|+|- 

<qual i f ied-name>  as  well  as  <occ>ur rence  have  the  same 
syntax  as  described  in  the  Record  Statement  section  3.2. 3. 3. 

Semantics : The  <qual i f ied-name>  is  identified  as  a field  of 
<parent-name> . <parent-name>is  the  name  of  a group  or 


T*' 
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record  from  which  the  field  is  the 
The  <field-desc>  is  the  same  as  the  da 
or  COBOL.  For  an  oxistino  file  in  any 
is  possible  to  copy  the  needed  descr 
meaning  of  these  data  type  attributes 


PICTURE  represents  picture  data, 
helpful  in  describing  data  to  apoear 
the  description  of  each  diqit  or  char 
of  the  field  as  alphanumeric,  numeric 
character  A symbol  should  be  entered 
digit  position  in  the  associated  data 


X for  any  character 
A for  an  alphabetic  or  blank  ch 
9 for  a decimal  diqit  or  a blan 
V for  a decimal  point 
Z fot  a conditional  diqit  (lead 
replaced  by  blanks) 


immediate  descendent. 
ta  types  found  in  PL/1 
of  these  lanquaqes  it 
intons  directly.  The 
is  exolained  below: 

It  is  particularly 
in  reports.  It  allows 
acter  in  each  position 
or  as  special  editing 
for  each  character  or 
field  as  follows: 


aracter 

k 

inq  zeros  are 


Period  (.).  slash  (/)  or  blank,  are  editinq  characters 
that  may  be  inserted.  S,  +,  -,  $,  , are  also  editinq 
characters  that  may  be  used  in  static  or  drifting  manner.  A 
drifting  character  is  similar  to  a zero  suppression 
character.  Further  explanations  on  the  use  of  PIC 
characters  can  be  found  in  the  PL/1  Programmers  Reference 
Manual . 


CHARACTER  data  may  have  a constant  or  variable  length 
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The  number  of  repetitions  or  <lenqth>  is  qiven  by  a list  of 
<occ>ur  rences. 

NUMERIC  data  is  similar  to  CHAR,  but  consistinq  of 
numerics  only.  It  must  be  of  constant  lenqth. 

DECIMAL  data  must  also  be  of  constant  lenqth.  Its 
associated  attributes  consists  of  the  lenqth  of  the  field 
and  optionally  the  position  of  the  decimal  point. 

BINARY  data  must  be  of  constant  lenqth  and  uo  to  31 
binary  digits. 

BIT  is  similar  to  CHAR,  only  the  data  consists  of  binary 
digits.  If  it  is  a variable  length  field,  this  must  be 
given  by  a list  of  <occ>ur rences. 

The  FLOAT  attribute  for  DECimal  and  BINary  numbers 
indicates  a floating  point  number.  DEC  FLOAT  precision 
should  not  exceed  33  and  the  exponent  cannot  exceed  2 
digits.  BIN  FLOAT  precision  should  not  exceed  109  (binary 
digits)  and  the  exponent  must  be  in  the  range  -260  to  +256 

In  FIXED  data  representation  the  decimal  or  binary  point 
is  in  a fixed  position  and  this  is  indicated  by  addinq  after 
the  length  (total  number  of  digits)  of  the  field  a comma  (,) 
followed  by  the  number  of  digits  to  the  right  of  the  decimal 
or  binary  point. 


' £ . 4 1 1 lill  i *• 
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3. 4. 3. 6 Files  Desciiotion  for  Model  I 

Fiqure  3.10  shows  the  desciiotion  of  file  PARAM,  which 
is  defined  as  a sequential  file  kept  on  a disk  media.  The 
file  contains  the  estimated  coefficients  for  the  three 
stochastic  equations  in  Model  I:  Consumption  function. 
Investment  function  and  wanes.  Each  of  the  equations  uses 
four  coefficients  which  aie  keot  in  reoeatinq  fields  ALPHA, 
BETA  and  GAMMA  respectively.  The  file  is  defined  as  a 
sinqle  qiouD  COEFF  which  is  divided  into  three  records,  one 
for  each  stochastic  equation. 


DISK  IS  MEDIA  (UNIT=3330); 


PARAM  IS  FILE  ( DISK , SEQUENTIAL) ; 


COEFF  IS  GROUP  (PARAM); 

CONSUMP  IS  RECORD  (COEFF) ; 

ALPHA  IS  FIELD  (CONSUMP , DEC (14,8) , (4)) ; 
INVESTM  IS  RECORD  (COEFF); 

BETA  IS  FIELD  ( I NVESTM , DEC (14,3)  , (4))  ; 
WAGES  IS  RECORD  (COEFF); 

GAMMA  IS  FIELD  ( WAGES , DEC ( 1 4 , 8 ) , ( 4 ) ) ; 

Fiqure  3.10 

Description  of  PARAM  File  for  Model  I 


109 


Figures  3.11a  and  3.11b  shows  the  description  of  file 
BANK  and  a sample  entry  for  a TIM  SER  record  respectively. 
Each  of  the  components  in  the  declaration  for  this  file  were 
explained  in  section  3.3. 

Figure  3.12  illustrate  the  description  of  files  CONTROL, 
and  the  documentation  file  DOCMENT.  Since  the  tarqet  file 
CONTROL  uses  the  same  structure  as  the  source  file  BANK,  it 
is  only  necessary  to  declare  the  file  descrintion  statement 
and  use  the  previously  defined  name  for  the  record 
(TIM_SER) , this  time  related  to  the  parent  name  CONTROL. 
This  is  sufficient  to  imply  the  same  description  as  the  one 
given  to  file  BANK.  The  description  of  all  files  in  a disk 
medium  is  now  complete. 


V 
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/*********************************************************/ 

/*  V 

/*  DESCRIPTION  OF  BANK  FILE  V 

/*  */ 

/*********************************************************/ 

BANK  IS  FILE  ( DI SK , KEY=NUMBER ) ; 

TIM_SER  IS  RECORD  ( BANK , {*) ) ; 

NAME  IS  GROUP  (TIM_SER) ; 

LABEL  IS  FIELD  ( NAME , CHAR ( 4 ) ) ; 

TITLE  IS  FIELD  (NAME , CHAR ( 40) ) ; 

NUMBER  IS  FIELD  (TIM_SER , NUM ( 4 ) ) ; 

TYPE  IS  GROUP  (TIM_SER) ; 

CODE  IS  FIELD  (TYPE ,CHAR ( 4 ) ) ; 

UNITS  IS  FIELD  (TYPE , CHAR ( 20) ) ; 

RANGE  IS  GROUP  (TIM_SER) ; 

START  IS  GROUP  (RANGE); 

YEAR  IS  FIELD  ( START , NUM ( 4 ) ) ; 

PERIOD  IS  FIELD  (START, NUM ( 2) ) f 

OBS_NUM  IS  FIELD  ( RANGE , NUM ( 3 ) ) ; 

NUM_PD_YR  IS  FIELD  ( RANGE , NUM ( 2 ) ) ; 

REF#  IS  FIELD  (TIM_SER,NUM(3) , (1:20) ) ; 

ENDREF  IS  FIELD  (TI M_SER , CHAR ( 1 ) ) ; 

DATA  IS  FIELD  (TIM  SER , PEC ( 10 , 5 ) , (OBS  NUM) ) ; 


Fiquie  3.11a 

Description  of  File  Bank 
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BANK  FILE  IS  DESCRIBED  WITH  A CENTRAL  FORMAT  WHICH  CAN 
BE  SHARED  BY  OTHER  MODULES  TO  DESCRIBE  THEIR  DATA  (EX. 
ANNUAL  AS  WELL  AS  QUARTERLY  DATA) . 

FOR  INSTANCE  FOR  KLEIN'S  MODEL  I,  WITH  DATA  FROM 

1920  TO  1941,  A TIME  SERIES  ENTRY  WILL  LOOK  AS  FOLLOWS: 

(FIELD  NAME) 

(ENTRY) 

NAME. LABEL 

C 

NAME. TITLE 

CONSUMPTION 

NUMBER 

1 

TYPE. CODE 

ENDO 

TYPE. UNITS 

BILLIONS  1934  DOLLARS 

START. YEAR 

1920 

START. PERIOD 

1 

OBS  NUM 

22 

NUM_PD  YR 

1 

REF#  (1) 

1 

REF# (2) 

2 

REF# (3) 

3 

ENDREF 

# 

DATA  (1) 

39.8 

DATA ( 2 ) 

• 

41.9 

• 

• 

• 

• 

• 

DATA (22) 

69.7 

Fiqute  3.11b 

Sample  Entry  for  Time-series 
Correspondinq  to  Fiist  Variable:  Consumption 


■*+ 
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Two  files  are  specified  for  the  terminal  unit;  a source 
file  INPUT  containing  control  parameters  for  the  simulation, 
and  a tarqet  file  REPORT  which  oresents  selected  solution 
values  to  the  user.  The  declarations  for  these  files  are 
depicted  in  Figure  3.13. 

The  INPUT  file  contains  two  records ; CNTRL  PARAM  and 
LI STREP.  The  first  record  contains  fields  with  the  startinq 
year  and  period  for  the  simulation  (SIM_YEAR  and  SIM_PD) , 
the  total  number  of  periods  to  simulate  (SIM_NP)  and  a 
description  of  the  type  of  simulation  (i.e.,  dynamic, 
one-period  or  res-check).  LISTREP  is  divided  into  two 
fields:TOT#  which  contains  the  total  number  of  selected 
variables  to  be  included  in  target  file  REPORT,  and  a 
repeating  field  VAR#,  which  contains  the  time-series  numbers 
of  those  variables  selected. 

The  REPORT  file  is  defined  as  a repeating  group  (OUTPUT) 
containing  two  records:  TITLE  and  ENTRY.  The  fields  in 
TITLE  represent  headinq  information  while  the  ENTRY  fields 
contain  the  data  for  a particular  year,  period,  label  and 
solution  value  for  a selected  variable.  Both  records  use 
the  PICTURE  attribute  to  describe  its  fields.  Some 
assertions  associated  with  the  description  of  file  REPORT 
are  given  in  Figure  3.13b  with  some  comments  on  its 
purposes . 
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/* 

/*  DESCRIPTION  OF  FILES  IN  TERMINAL 

/I********************************** 

/* 

/*  DESCRIPTION  OF  SOURCE  FILE  INPUT 

/******************************** 


V 

V 

V 

************* / 

V 

V 

*/ 

*************  ^ 


INPUT  IS  FILE  (TERM); 

CNTRL_PARAM  IS  RECORD  (INPUT); 

SIM_YEAR  IS  FIELD  (CNTRL_PARAM , NUM ( 4 ) ) ; 

SIM_PD  IS  FIELD  (CNTRL_PARAM ,NUM ( 2) ) ; 

SIM_NP  IS  FIELD  (CNTRL_PARAM ,NUM ( 2) ) ; 

SIM_TYPE  IS  FIELD  (CNTRL_PARAM ,CHAR ( 1 2) ) ; 

LISTPEP  IS  RECORD  (INPUT); 

TOT#  IS  FIELD  ( L ISTREP , NUM ( 4 ) ) ; 

( 

VAR#  IS  FIELD  ( LISTPEP , NUM ( 4 ), (TOT# )) ; 

/********************************************************/ 
/*  */ 

/*  DESCRIPTION  OF  TARGET  FILE  REPORT  */ 

/*  */ 

/********************************************************/ 

REPORT  IS  FILE  (TERM) ; 

OUTPUT  IS  GROUP  ( REPORT, (SIM_NP) ) ; 

TITLE  IS  RECORD  (OUTPUT) ; 

YEAR  IS  FIELD  ( TITLE , PIC ' ( 4 ) A ' ) ; 

PERIOD  IS  FIELD  (TITLE, PIC ’BB  (6) A ' ) ; 

LABEL  IS  FIELD  ( TITLE , PIC  ' BB ( 5 ) A ' ) ; 

VALUE  IS  FIELD  (TITLE , PIC  ' BB  ( 5 ) A * ) ; 

Figure  3.13a 

Description  of  Files  in  Teminal 
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ENTRY  IS  RECORD  (OUTPUT , (TOT# ) ; 

OUT  YEAR  IS  FIELD  ( ENTRY , PIC  ' Z Z 7,9  ')  ; 

OUT_PER IOD  IS  FIELD  ( ENTRY , PIC  1 ( 6 ) BZ 9 ' ) ; 

OUT_LABEL  IS  FIELD  ( ENTRY , PIC ' BOB ( 4 ) A ' ) ; 

OUT_VALUE  IS  FIELD  (ENTRY, PIC 'BBSZZZ9V999  ') ; 

/*  ASSERTIONS  FOR  TITLE  HEADING  */ 

YEAR  = 'YEAR'; 

PERIOD  = 'PERIOD'; 

LABEL  = 'LABEL'; 

VALUE  = 'VALUE'; 

/*  THE  OUTPUT  REPORT  FOR  SELECTED  VARIABLES  WILL  APPEAR 
AS  FOLLOWS  IN  THE  TERMINAL:  */ 

/* 

Y E A R PERIOD LABE L VA  LU  E 

1921 ] K 184.121 

V 

/*  THE  ENTRY  RECORD  WILL  REPEAT  FOR  EVERY  SELECTED  VARIABLE 
GIVEN  IN  INPUT. LISTREP,  AND  THE  OUTPUT  GROUP  FOR  EVERY 
PERIOD  OP  SOLUTION.  */ 

Figure  3.13b 

Assertions  for  Files  in  Terminal 


3. 4. 3. 7 Inter-File  Relationships:  POINTER  type  assertions 


Purpose : To  coordinate  occurrences  of  repeatinq  data 


structures  between  files. 


Syntax  : POINTER . <aual i f ied-name>  = <qua 1 i f ied-name>  [;] 
where  <qual i f ied-name>  has  the  same  syntax  as  defined  in  the 
Reference  Statement  section  3.4. 2.4 


Semantics : The  least  qualified  <name>  of  the  expression  at 
the  r igth-hand-side  must  be  a field  <name>  which  "points  to" 
or  is  a "key"  of  a teoeatinq  data  structure  which  is 
qualified  by  POINTER. 


Example : 

The  followinq  declarations  represent  interfile 
relationships  for  the  soecif ication  of  Model  I: 


/********************************************************/ 
/*  */ 

/*  INTERFILE  RELATIONSHIPS  */ 

/*  V 

/A*******************************************************/ 

POINTER. CONTROL. TIM_SER  = BANK. NUMBER; 

POINTER. DOCMENT.RCFREC  = CONTROL . REF *( FOR  EACH  REF#); 


3. 4. 3. 8 Assertions  for  Variable  Length:  LEN-type  Assertions 


Purpose : To  provide  an  expression  that  determines  the  lenqth 
of  variable  length  fields. 


Syntax : LEN. <qualif ied-name>  = (ar ith-expr ession>  [;] 
where  the  syntax  of  <ar ith-exoression>  is  given  in  section 


HHM 
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1 

3. 4. 4. 3. 8 Assertion  Statement. 

Semantics ; The  least  qualified  <name>  of  <qual i f ied-name> 

must  be  described  as  a field  of  variable  lenqth  which  is 

determined  by  the  evaluation  of  <arith-exoression>. 
i 

Example : If  DOCMENT. TITLE  were  described  as  a variable 

lenqth  field 

TITLE  IS  FIELD  ( DESCRI PTION , CHAR ( 1 : 80 ) ) ; 
and  the  actual  length  of  the  field  were  delimited  by  the 
semicolon  character  ' ; * , then  the  following  expression  can 
be  used 

LEN. TITLE  = DF.LIM  (REFREC 

where  REFREC  is  the  name  of  the  record  in  which  the  field  is 
described  and  DELIM  is  a built-in  function  which  search  for 
the  delimiting  character  and  returns  the  actual  lenqth  of 
the  field. 

3.4. 3.9  Assertions  for  Variable  Repetitions: 

EXIST-type  Assertions 

Purpose : To  provide  an  expression  that  determines  the  number 
of  occurrences  of  a repeating  structure. 

* Syntax : EXIST. <qualif ied-name>  = <ar ith-exoression>  (;] 

where  the  syntax"  of  <ar i th-expression>  is  given  in  section 
3. 4. 4. 3. 8 Assertion  Statement. 


Semantics : 

The 

actual  ocurrences 

of  a 

repeating 

data 

* 

construct 

are 

determined  by 

the 

evaluation 

of 

i 


lit 


<ai i th-expr ession> . 

Example : 

/*  ASSERTION  TO  COMPUTE  THE  NUMBER  OF  REPETITIONS  OF  FIELD 
REF#  */ 

EXIST. BANK. REF#  = OELIM (TIM  SER  , ' # ' ) /3 ; 

/♦’DELIM'  FUNCTION  SCANS  FOR  '#*  DELIMITER  SYMBOL  IN  THE 
RECORD  TIM  SER  (FIELD  ENDREF)  */ 


3.4.4  Composing  the  Computation  Description  Section 

The  computation  description  section  Provides  definitions 
for  the  declarations  of  variable  tyDes  associated  with  the 
sDecif ication  of  relationships  or  transformations  between 
data  structures:  interim  variables  and  subscript  parameters. 
It  also  describes  the  structure  of  the  assertions,  which  are 
the  basic  statements  used  in  expressing  operational 
characteristics  of  a system  or  relationships  between  data 
elements. 

3. 4. 4.1  Interim  Variable  Description 

Purpose : To  describe  fields  that  ate  neither  in  source  nor 
in  target  files. 

Syntax: <qualif ied-name>  f , <qual if ied-name>] * f<is>)  INTfERIM] 

( ( ( <pa ten t -name >] f , <at  oument>] *) ] ( ; ] 

items  <qualif ied-name>  and  <oarent-name>  have  the  same 
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syntax  as  the  cor  respond inq  items  in  the  Field  statement 
section  3. 4. 3. 5 

Semantics : The  <qua 1 i f ied-name>  which  must  not  be  described 
in  a source  or  tarqet  file  can  be  used  internally  in  the 
module  for  assertions.  <par ent-name>  is  used  when  a 
hierarchy  of  variables  with  a tree  like  structure  defined  by 
the  <qual i f ied-name>  is  needed.  The  <arqument>s  have  the 
same  semantics  as  in  the  Field  statements. 

Example ; Fiqure  3.14  shows  the  definition  of  INTERIM 
variables  used  in  Model  I. 
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/*  IN  ORDER  TO  FACILITATE  THE  TRANSCRIPTION  OF  RELATIONS, 
INTERIM  VARIABLES  ARE  USED  TO  DESCRIBE  THE  MODEL  WITH 
APPROPRIATE  MNEMONICS.  */ 

/********************************************************/ 

/*  V 

/*  ENDOGENOUS  V 

/*  V 

/********************************************************/ 

C IS  INTERIM  (NUM(IO) , (NO) ) ; /*  CONSUMPTION  */ 

I IS  INTERIM  (NUM  ( 10)  , (NO) ) ; /*  NET  INVESTMENT  */ 

W1  IS  INTERIM  (NUM (10) , (NO) ) ; /*  PRIVATE  WAGE  BILL  */ 

/********************************************************/ 

/*  V 

/*  DEFINITIONAL  */ 

/*  V 

/********************************************************/ 

E IS  INTERIM  (NUM (10) , (NO) ) ; /*  PRIVATE  PRODUCT  */ 

P IS  INTERIM  (NUM(10) , (NO) ) ; /*  BUSINESS  PROFITS  */ 

W IS  INTERIM  (HUM (10) , (NO) ) ; /*  TOTAL  WAGE  BILL  */ 

K IS  INTERIM  (NUM(10) , (NO) ) ; /*  CAPITAL  STOCK 

AT  END  OF  YEAR  */ 

Y IS  INTERIM  (NUM (10) , (NO) ) ; /*  NATIONAL  INCOME  */ 

/********************************************************/ 

/*  V 

/*  EXOGENOUS  */ 

/*  V 

/********************************************************/ 

G IS  INTERIM  (NUM  (10)  , (NO) ) ; /*  GOVERNMENT  SPENDING  */ 

R IS  INTERIM  (NUM (10) , (NO) ) ; /*  BUSINESS  TAXES  */ 

T 1 IS  INTERIM  (NUM(10) , (NO) ) ; /*  TREND  VARIABLE  */ 

W2  IS  INTERIM  ( NUM ( 1 0 ) , ( NO) ) ; /*  GOVERNMENTAL  WAGE 

BILL  */ 

Fiqure  3.14 

Use  of  Interim  Variables  in  Model  I 
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3. 4. 4. 2 Subscript  Parameter  Description 

Purpose : To  identify  or  coordinate  instances  of 

multidimensional  or  repeating  data  structures. 

Syntax ; <name> [ , <name> ] * [<is>]  SUBSCRIPT] 

( ( [<parent_-name>]  [ , <argument>]  *)  ] [ ; ] 

<argument> : :=<integer>[, [< integer  > 1 (,<integer>}]  [ ? ] 

Semantics : The  list  of  <name>s  can  be  used  as  subscript 

symbols  throughout  the  module.  <narent-name>  is  the  name  of 
a repeating  predecessor,  or  can  also  be  the  "own"  data  name 
The  item  <integer>  is  used  to  declare  the  range  and 

increment  of  the  subscripted  parameters.  If  only  <integer> 
is  declared,  the  range  is  assumed  from  1 to  <integer>.  Two 
<integer>s  imply  a range  from  first  <integer>  to  second 
<integer>.  The  third  <integer>,  when  given,  denotes  the 
increment  of  the  subscripted  names.  A default  increment  of 
1 is  assumed  if  not  given. 

Examole:  NP  IS  SUBSCRIPT  (1,SIM_NP); 

NP  is  described  as  a subscript  ranging  from  1 to  SIM_NP, 
the  total  number  of  periods  to  simulate.  The  increment  is  1 
by  default. 

3. 4. 4. 3 Assertions 

The  assertion  consists  of  a header,  which  includes  a 
group  of  optative  declarations:  the  name  of  the  assertion, 
identification  of  source  and  target  variables  used  in  the 


assettion,  name  of  functions  which 


are 


referenced  and  those 


declarations  which  are  needed  for  the  solution  of 
simultaneous  equations  (initial  values,  solution  method  and 
convergence  criteria).  Following  the  heading  declarations 
comes  the  assertion  statement  itself. 

3. 4. 4. 3.1  Assettion  name 
Purpose ; To  label  the  assertion. 

Syntax : <asset tion-name> : :=<qualif ied-name>: 

<qualif ied-name>  has  the  same  syntax  as  described  in  the 
Data  Descriotion  Section  3.4.3. 

Semantics : <qual if ied-name>  is  assiqned  as  label  to  the 

assettion.  If  not  given,  the  MODEL  svstem  provides  a name. 

Example;  MODEL_I .CONSUMPTION : 

3. 4. 4. 3. 2 Source  Variable  Descriotion 

Purpose ; Identifies  variables  used  as  source  in  the 
assettion. 

Syntax  ; <asset tion-name>  S[ODRCE);  <vat iahle> [ , <var iable> 1 * 
<variable>::=<qualified-name>l <subsct ints>l 

and  <subsctiDts>  is  defined  in  section  3.4.4.3.B  Assertion 
Statement. 

Semantics : The  list  of  variables  are  used  as  source  or  input 
variables  to  the  assertion.  If  no  source  variables  are 
given,  then  all  the  RHS  variables  in  the  assertion  are 
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assumed  to  be  soutce  variables. 

Example;  MODEL  I. CONSUMPTION: 

SOURCE;  W, P, ALPHA 

the  variables  W,P  and  ALPHA  used  in  the  assertion 

MODEL_l .CONSUMPTION  are  the  source  variables. 

3. 4. 4. 3. 3 Target  Variable  Descrition 

Purpose : Identifies  variables  used  as  target  (dependent 

variables)  in  an  assertion. 

Syntax  : <asser tion-name>  T [ AR ( GET ] ] : <var iable> [ , <var iable> ] 
<variable>  has  the  same  syntax  as  described  in  Source 
Variable  Description. 

Semantics ; The  list  of  variables  is  used  as  target  or 
dependent  variables  of  the  assertion.  If  no  target 
variables  are  described  for  an  assertion,  then  all  the  LHS 
variables  in  the  assertion  are  assumed  target  variables. 

Examnle;  MODEL_I .CONSUMPTION : 

TARGET:  C 

C is  the  target  variable  for  the  assertion 
MODEL_I. CONSUMPTION. 

3. 4. 4. 3. 4 Function  Reference  Statement 


Purpose ; To  identify  names  in  an  assertion  or  module 
specification  which  are  function  references. 


Syntax ; ( <asser tion-name> J FUNfCTION]:  <1 ist-of-f unctions> 


r - - 


124 


<list-of-functions>: :=  <name>[ (<arquments>) ] 

[,<name>[ (<arquments>) ) * 

<arqument>::=  <field-desc>[,<field-desc>]* 

where  <field-desc>  has  the  same  syntax  as  the  cor l esoondinq 
item  in  the  FIELD  statement,  section  3. 4. 3. 5. 

Semantics : The  names  qiven  in  the  <1 ist-of-functions>  are 
function  references  in  the  module  soecif ication  (if  no 
<asser tion-name>  is  oiven)  or  in  the  named  assertion.  The 
<arquments>  associated  with  a ©articular  function  name 
soecify  the  attributes  of  the  arguments  in  the  function. 
These  arquments  ate  required  if  the  function  is  in  a library 
and  the  user  arquments  differ  from  those  specified  for  the 
function. 

Example:  FUNCTION:  MOD, COUNT 

identifies  the  two  functions  used  in  the  specification  of 
Model  I. 

3. 4. 4. 3. 5 Solution  Method  Description 

Syntax : <assertion-name>  SOL[UTION]: 

<method> [ , <ar ith-expression>l * 

+ 

I NEWTON 

<method> : : = GAUSS  SEIDEL 


|G  S 
+ 

Semantics : 

The 

name  of 

<method> 

identifies  the 

solution 

procedure. 

It 

is  envisi 

oned  that 

more  orocedures 

will  be 

r 


i 


4 
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available  in  the  future.  The  list  of  <ar ith-expr ession>  is 
used  as  parameters  for  the  procedure.  For  instance  the 
GAUSS_SEIDEL  solution  procedure  uses  the  first 
<a r i th-expr ess  ion > to  determine  the  maximum  number  of 
iterations  permitted. 

Example : MODEL_I:  SOLUTION:  G__S,50 

assertion  MODEL_I  (possibly)  consisting  of  a group  of 
simultaneous  equations  is  to  be  solve  by  the  GAUSS_SEIDEL 
iterative  procedure  with  a maximum  of  50  iterations. 

3. 4. 4. 3. 6 Initial  Value  Description 

Purpose : To  give  starting  values  to  tarqet  variables  of  a 
simultaneous  assertion. 

Syntax : <asser tion-name>  I[NIT[IAL]]: 

<simple-assertion>[,<simple-assertion>]* 

<s i mple-a sse t tion> :: =<a r ith -e xpression>=<ar ith-expr ess i on > 
the  syntax  of  item  <ar ith-expr ess ion>  is  aiven  in  section 
3. 4. 4. 3. 8 Assertion  Statement. 

Semantics : INITIAL  values  needed  for  iterative  solution 

methods  are  qiven  by  means  of  a list  of  <simple-assertion>s. 
Normally  these  will  consist  of  equations  assigning  an 
<ar ith-expression>  to  a <variable>  which  is  a tarqet 
variable  in  the  assertion. 

Example  t CONSUMPTION: 


SOLUTION:  G S , 50 


* 
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INITIAL:  C (T)  = C(T-l) 

the  initial  conditions  for  variable  C in  assertion 
CONSUMPTION  is  defined  as  its  own  value  laqqed  one  period. 

3. 4. 4. 3. 7 Test  Value  Description 

Purpose : To  give  a convergence  criteria  for  target  variables 
of  a simultaneous  assertion. 

Syntax : <assertion-name>  TEST: 

<simple-assertion>[,<simDle-assertion>]* 
the  item  <simDle-assertion>  has  the  same  syntax  as  the 
corresponding  item  in  the  Initial  Value  Description. 

Semantics : Test  values  for  absolute  convergence  criteria  for 
iterative  methods  are  assigned  to  target  values  by  means  of 
a list  of  <simDle-asser tions>.  Normally  these  will  consist 
of  the  assignment  of  an  <ar ith-exoression>  to  a <variable> 
which  is  a target  variable  in  the  assertion. 

Example : CONSUMPTION: 

SOLUTION:  G_S,50 
INITIAL:  C (T)  = C(T-l) 

TEST:  C (T)  = .01 

an  absolute  convergence  criteria  of  .01  (ABS(C(T)  -C(T)  ) 

<=  .01  for  convergence)  is  assiqned  to  variable  C during 
period  T. 

3.4.4. 3.8  Assertion  Statement 

Purpose : To  define  inter-file  relationships.  To  define  data 
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relationships  or  data  transformations:  operating 
characteristics,  computation  rules  and  decision  rules.  Also 
to  supplement  the  data  description  with  rules  for  computinq 
variable  length  or  repeating  data  structures.  To  select 
subsets  of  data. 


Syntax : [<headinq>]  <assertion>  [;) 

<asser tion> : : = <if-or -for-clause>  <assertion> 

[ELSE  <assertion>] 

l<arith-expression>=<arith-expression> 

<if-or-for-clause> : : = IP  <for-exoression>  [ THEN) 

IFOR  | LET 

+ + 


<for-expression> : : =<simple-for> [ & <for -exoression> ] 

M 

+ 


<simple-for> : : =<ar ith-expression> ( FROM  <a rith -express ion > 

I <rel-oor  > 

+ 


[ TO  <ar ith-exoression>  [3Y  <arith-exoression> ] J ] 

I <r el -opr > 

+ 


<rel-opr >::=<|<=|>|>=|=|= 

<ar i th -ex press  ion > : : = [ <siqn> ] <relational> 

<sign> : :=+|- 

<r elat iona 1 > : : =<ter ms > [<rel-opr>  <r ela t ional > ) 


<terms>: :=<term>  [ <sign><terms> ] 


■ 


1 2 R 

<term>::=<factor>[<diadic-opr><term>] 

<factor>::=<primaty>[ <exn-oot ><factoi>] 

<pr imary> : :=  (<arith -expression^ 

|<arith-constant> 

I <str inq-constant> 
|<aualified-name>[<subscriots>] 

<subscripts>::=(<arith-exoression>[,<aiith-exoression>]*) 

< e x p— opr  >::=**!  J_J_ 

<diadic-opr  >::=*!/ 

<headinq>::=<assertion-name>!<source-variable-description> 

I <tarqet-var iable-descr iption> I 
I <f unction-ref erence-descr iot ion > 

I <solut ion-met hod-desct iotion> 

I <initial-value-description> 

I Ctest-value-desci iption> 

the  syntax  of  the  <headinq>  components  was  given  in  sections 

3. 4. 4. 3.1  to  3. 4. 4. 3. 7. 

Semantics:  Conditional  expressions  at  different  recursive 


depth,  as 

desct ibed 

in 

the  syntax 

definition , 

can 

be 

pet  formed. 

However 

for 

most  applications  it 

is 

not 

necessary 

to  compose 

more 

comp! icate 

expressions 

than  a 

first  level 

conditional 

<if 

-or-for-clause> . The  equal 

siqn 

here 

means  alqebraic 

equality 

as  opposed 

to 

the 

'assiqnment  ’ semantics  used  in  other  oroqramminq  lanquaqes. 


r 
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The  construction  of  <a r i th-expr ess  ion >s  should  be  clear  from 


the  definition.  Iteration  in  the  program  can  be  imolied  by 
the  use  of  < i f-or -f or -c 1 ause> . 

\ I 

A number  of  assertions  used  as  relationships  between 
data  structures,  as  well  as  to  define  the  ooeratinq 
characteristics  of  Klein's  Model  I are  given  in  the  next 


130 


t 


I 


3. 4. 4. 4 Comoutation  Description  in  Model  I 

This  section  present  a list  of  figures  illustrating  the 
use  of  assertions  in  comoosino  the  specification  for  Model 
I.  Fiqure  3.15  explains  graphically  the  meaning  of  the 
auxiliary  assertions  qiven  in  Fiqure  3.16.  These  assertions 
qeneralize  the  specification  intented  to  be  used  in  a 
simulation  library,  as  opossed  to  a "special  purpose" 
description  just  for  Model  I.  The  statements  in  Fiqure  3.17 
aie  needed  to  relate  predetermined  data  (exoqenous  and 
laqqed  data)  to  cor resoondinq  interim  variables. 

The  core  of  Model  I structure  is  qiven  in  Fiqure  3.18. 
By  proper  choice  of  naminq  conventions  and  use  of  interim 
variables  the  description  becomes  apparent  to  the  reader.  A 
user  may  want  to  chanqe  this  portion  of  the  specification  to 
try  new  hypothesis  formulation  without  the  need  to  refer  to 
other  sections  of  the  specification. 

Fiqure  3.19  list  the  assertions  required  to  relate  the 
tarqet  files  REPORT  and  CONTROL  to  the  source  files, 
sometimes  via  interim  variables.  Finally  Fiqure  3.20 
illustrate  how  to  generate  a new  documentation  record  in 
file  DOCMENT  to  indicate  that  endoqenous  values  in  file 
CONTROL  are  originated  from  this  particular  solution 
specification. 


- - 


- 
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/*  NEXT  ASERTIONS  COMPUTE  THE  OFFSET  VALUE  FOR  EACH  RECORD 
AS  WELL  AS  OTHER  AUXILIARY  PARAMETERS.  */ 

/********************************************************/ 

/*  V 

/*  INTERNAL  PARAMETER  DEFINITIONS  */ 

/*  V 

/* *******************************************************/ 

OFFSET  IS  INTERIM  (NUM ( 3) , (TOT_VAR) ) ; 

SAMPLE  IS  INTERIM  (NUM ( 3 ) , (TOT_VAR ) ) ; 

LAG  IS  INTERIM  (NUM ( 3 ) , (TOT_VAR) ) ; 

NP  IS  SUBSCRIPT  (OUTPUT, (1,SIM_NP, 1,1) ) ; 

/********************************************************/ 
/*  AUXILIARY  ASSERTIONS  FOR  GENERAL  SIMULATION  V 

/*  SPECIFICATION  V 

/********************************************************/ 

TOT_VAR  = COUNT (BANK. TIM_SER) ;/*  'COUNT*  FUNCTION  RETURNS 

TOTAL  NUMBER  OF  RECORDS  */ 

OFFSET ( * ) = (SIM_YEAR  - START . YEAR (*) ) * NUM_PD  YR ( * ) 

+ (SIM_PD  - START. PERIOD(*) ) ; 

SAMPLE ( * ) = OFFSET ( * ) + NP; 

MAX LAG  = 1 ; /*  LONGEST  LAG  EXPECTED  FOR  A MODEL  * / 

T = NP  + MAXLAG;  /*  'TIME'  INDEX  FOR  THE  SOLUTION  PERIOD  */ 
NO  * SIM_NP  + MAXLAG;  /*  TOTAL  NUMBER  OF  OBSERVATIONS  */ 

LAG ( *)  * OFFSET ( * ) - MAXLAG; 

Figure  3.16 


Auxiliary  Assertions  for  Generality  of  Module  Specification 
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/*  ASSIGNMENT  OF  EXOGENOUS  VALUES  TO  INTERIM  VARIABLES  */ 
/*  THIS  PARTICULAR  REPRESENTATION  REQUIRES  THE  USER  TO  */ 
/*  KNOW  THE  PHYSICAL  LOCATION  OF  DATA  (TIME-SERIES)  IN  */ 
/*  THE  'BANK'  FILE.  */ 

VAR#1:  G (T)  = BANK . DATA  ( 1 , SAMPLE  ( 1 ))  ; 

VAR#  2 : R (T)  = BANK. DATA ( 2 , SAMPLE ( 2) ) ; 

VAR#  3 : T1(T)=  BANK . DATA ( 3 , SAMPLE ( 3 ))  ; 


VAR# 4:  W2(T)=  BANK . DATA ( 4 , SAMPLE (4)); 


/*  OTHER  ENDOGENOUS  AND  DEFINITIONAL  VARIABLES  ARE  */ 
/*  ASSIGNED  AS  FOLLOWS;  */ 

/*  C TO  VAR# 5 */ 

/*  I TO  VAR# 6 */ 

/*  W1  TO  VAR #7  */ 

/*  E TO  VAR #8  */ 

/*  P TO  VAR #9  */ 

/*  W TO  VAR# 10  */ 

/*  K TO  VAR# 1 1 */ 

/*  Y TO  VAR# 12  */ 

/*  ASSIGNMENT  OF  LAGGED  HISTORICAL  DATA  TO 
INTERIM  VARIABLES  */ 

FOR  J = 1 TO  MAXLAG  LET  E(J)  = BANK . DATA ( 8 , LAG ( 3) +J ) ; 

FOR  J = 1 TO  MAXLAG  LET  P(J)  = BANK . DATA ( 9 , LAG ( 9 ) + J ) ; 

FOR  J = 1 TO  MAXLAG  LET  K(J)  = BANK . DATA ( 1 1 , LAG ( 1 1 ) +J ) ; 

Fiquie  3.17 

Relatinq  Interim  Variables  to  Predetermined  Data 


I 


INCOME: 

Y (T)  = C (T)  + I (T)  + G (T)  - R (T)  ; 


PRIV_PROD: 

E(T)  = Y(T)  + R (T)  - W2(T) ; 

TOT_WAGE: 

W (T)  = W1 (T)  + W2 (T) ; 

PROFITS: 

P (T)  = Y (T)  - W(T) ; 

CONSUMPTION: 

C (T)  = ALPHA ( 1 ) + ALPHA ( 2 ) * W(T) 

+ ALPHA ( 3 ) * P (T)  + ALPHA ( 4 ) * P(T-I); 
INVESTMENT: 

I (T)  = BETA ( 1 ) + BETA ( 2 ) * P(T) 

+ 3ETA ( 3) *P (T-l ) + BETA ( 4 ) (T- 1 ) ; 

PRI V_WAGE : 

Wl  (T)  = GAMMA ( 1 ) + GAMMA ( 2)  * E (T) 

+ GAMMA(3) *E (T- 1 ) + GAMMA ( 4 ) * (T1 (T) - 19 3 5 ) ; 

CAPITAL: 

K (T)  = I (T)  + X (T-l)  ; 

Fiqure  3.18 

^odel  I Characteristic  Equations 
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/********************************************************/ 
/*  */ 

/*  ASSERTIONS  FOR  FILE  REPORT  */ 

/*  V 

/ft*******************************************************/ 

N IS  SUBSCRIPT  (ENTRY,  (1, TOTS  ,1,1) ) ; 

OUT_YEAR (N,NP)  = SIM_YEAR  + (NP  + S1M_PD  - 2)  / NUM_PD_YR; 

OUT_PD(N,NP)  = MOD  (NP  + SIM_PD  - 2 , NUM_PD_YR)  + 1; 

OUT_LABEL(N,NP)  = BANK . LABEL ( VAR# (N )) ; 

OUT_VALUE(N,NP)  = CONTROL. DATA (VAR? (N) ,T (NP) ) ; 

/********************************************************/ 

/*  V 

/*  ASSERTIONS  FOR  FILE  CONTROL  */ 

/*  */ 

/********************************************************/ 

CONTROL. START. YEAR (*)  = SIM_YEAR; 

CONTROL. START. PERIOD(*)  = SIM_PD; 

CONTROL. OBS_NUM (*)  = SIM_NP; 

CONTROL. DATA (1,*)  =G(T); 

CONTROL. DATA (2,*)  = R (T) ; 

CONTROL. DATA (3,*)  = T1 (T) ; 

CONTROL. DATA (4,*)  =W2(T); 

CONTROL. DATA (5,*)  =C(T); 

CONTROL. DATA (6,*)  = I (T) ; 

CONTROL. DATA (7, *)  = W1 (T) ; 

CONTROL. DATA (3,*)  =E(T); 

CONTROL. DATA (9,*)  = P(T); 

CONTROL . DATA (10,*)=  W(T); 

CONTROL. DATA (11,*)=  K (T) ; 

CONTROL . DATA (12,*)=  Y (T) ; 

Figure  3.19 

Relating  Target  Data  to  Interim  and  Source  Data 
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FOR  J = 1 to  4 LET 

EXIST. CONTROL. REF#  = EXIST. BANK. REF# ; 

FOR  J = 5 TO  12  LET  EXIST. CONTROL. REF# (J)  = 1; 

FOR  J = 5 TO  12  LET  CONTROL. REF# (J , 1 ) = 99; 

/*  RECORD  99  IN  FILE  DOCMENT  WILL  BE  SET  TO  INDICATE  THAT 

ENDOGENOUS  VARIABLES  ARE  GENERATED  FROM  THIS  PARTICULAR 

SIMULATION  RUN  */ 

DOCMENT. REFREC. REF# (99)  = 99; 

DOCMENT. REFREC.TITLE(99)  = ’MODEL_I  DYNAMIC  SIMULATION*; 
DOCMENT. REFREC. VOL# (99)  = ‘VOID*; 

DOCMENT. REFRFC. DATE (99)  = 'NOV-4-77*; 

DOCMENT. REFREC. PU3LISHFR (99)  = ’VOID*; 

DOCMENT. REFREC. AUTHOR(99)  = *L.R. KLEIN*; 

DOCMENT. REFREC. COMMENT (99)  = 'CONTROL  SOLUTION  GENERATED 

FROM  SPECIFICATION  IN  MODEL  LANGUAGE*; 

Fiqute  3.20 

Control  Solution  Documented  with  new  Record 

The  soecif ication  to  qenerate  a solution  Droqram  for  the 
dynamic  simulation  of  Klein's  Model  I is  now  complete. 
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3.5  Alternatives  for  Module  Specification 

Several  alternative  specifications  for  the  generation  of 
a simulation  program  are  possible.  Without  loss  of 
generality  the  descriptions  that  follow  assume  every 

time-series  in  file  BANK  with  the  same  number  of 

■# 

observations  OBS_NUM.  Also  the  time  subscript  T is  defined 
over  the  appropriate  sample  simulation  period  (it  is  always 
possible  to  mao  the  source  data  into  an  standard  target 
structure  which  satisfy  these  assumptions). 

If  the  user  prefers  array  notation  instead  of  mnemonics,  \ 

it  is  possible  to  express  the  relationships  reoresentino  the 
model  structure  directly  in  terms  of  the  data  field  names,  < 

or  rename  the  data  entries  with  interim  arrays  as  deoicted  > 

in  Figure  3.21. 
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/*TWO  INTERIM  VARIABLES  ARE  DEFINED  AND  MADE 
THE  SOURCE  AND  TARGET  DATA  FIELDS*/ 

X IS  INTERIM  ( NUM  (10)  , (TOT _VAR ,OBS_NUM) ) ; 

Y IS  INTERIM  ( NUM (10) , (TOT_VAR ,OBS_NUM) ) ; 

X = BANK. DATA 

Y = CONTROL. DATA 

/A******************************************* 

/* 

/*  MODEL_I  EQUATIONS 

/* 

/******************************************** 

INCOME: 

Y ( 1 2 , T ) = Y(5,T)  + Y ( 6 ,T)  + X(lfT)  - X 
PRIV_PROD: 

Y(8,T)  = Y ( 12  ,T)  + X ( 2 ,T)  - Y(10,T) 
TOT_WAGE: 

Y ( 10 ,T)  = Y (7 ,T)  + X ( 4 ,T)  ; 

/*  ETC.  */ 


EQUIVALENT  TO 


************/ 

V 

*/ 

*/ 


(2fT)  ; 


Fiqure  3.21 

Module  Specification  Usinq  Aaay  Notation 
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3.5.1  One-period  Simulations  and  Residual  Checks 

The  description  of  the  module  have  been  qiven  in  terms 
of  dynamic  specifications  for  the  solution  of  the  model. 
For  'one-period'  simulations  it  is  necessary  to  substitute 
dynamic  values  used  for  lags  (i.e.,  solution  values  of 
lagged  periods)  by  corresponding  historical  source  values. 
Residual  checkinq  on  the  other  hand  requires  to  substitute 
every  endogenous  (target)  variable  at  the  right  hand  side  of 
an  equation  by  its  corresponding  historical  source  value, 
solve  the  assertion  algebraically  and  substract  the  obtained 
target  value  from  the  source  historical  one. 

Implementation  of  the  above  exercises  could  imply  that 
every  assertion  should  be  entered  more  than  once  when 
describing  the  model  structure  as  follows: 

/♦THE  TYPE  OF  SIMULATION  PARAMETER  IS  READ  FROM  TERMINAL*/ 

IF  (DYNAMIC)  THEN 

K (T)  = I (T)  + K(T-l)  ; 

IF  (ONE_PERIOD)  THEN 

K (T)  = I(T)  + DANK . DATA ( 1 1 , T- 1 ) ; 

IF  (RES_CHECK)  THEN 

K (T)  = BANK. DATA (6, T)  + BANK .DATA ( 1 1 ,T-1 ) ; 

IF  (RES_CHECK)  THEN 

RES (11 r T ) = BANK. DATA (1 1 ,T)  - K (T)  ; 

RES  IS  INTERIM  ( NUM ( 1 0 ) , (TOT_VAR , OBS__NUM ) ) ; 

/♦RESIDUALS  WILL  BE  STORED  IN  MATRIX  RES-'/ 
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The  duplication  of  the  qiven  model  structure  could  be 
avoided  however  by  proper  selection  of  interim  variables, 
use  of  functions  or  a more  convenient  naminq  convention. 
For  instance:  if  riqht  hand  side  endoqenous  equations  use 
the  notation  Z (<vat-indexes>)  while  endoqenous  laqs 
L ( <var-indexes>) . Then  the  follovinq  declarations  and 
assertions  can  represent  the  given  structure: 

IF  (RES_CHECK  | ONE _PERIOO)  THEN  L = BANK . DATA 
ELSE  L = CONTROL. DATA; 

IF  (DYNAMIC  I ONE  PERIOD)  THEN  Z = Y 
ELSE  Z =BANK . DATA ; 

Z IS  INTERIM  (NUM(10) , (TOT_VAR,OBS_NUM) ) ; 

L IS  INTERIM  (NUM (10) , (TOT_VAR,OBS_NUM) ) ; 

CAPITAL: 

Y ( 1 1 , T)  = Z ( 6 ,T)  + L ( 1 1 ,T-1 ) ; 

INCOME: 

Y ( 1 2 ,T)  = Z ( 5 ,T)  + Z (6 ,T)  + X(1,T)  - X(2,T); 

/*ETC . */ 

IF  (RES  CHECK)  THEN  RES=  Y - Z; 


Many  alternatives  exists  depending  on  user  imagination 
and/or  design  objectives  for  the  program.  However  it  is 
important  to  avoid  duplication  of  the  model  structure 
description  not  only  because  of  savings  in  file  soace  and 
effort  from  the  user,  but  mainly  because  the  nature  of  an 
exercise  such  as  residual  checking  is  orecisely  to  check  for 
errors  in  the  description  or  specification  of  the  model 
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structure.  Clearly  it  is  not  appropriate  to  check  for 
errors  in  a different  equation  (model)  than  the  one  actually 
used  for  the  dynamic  runs,  unless  some  mechanical  procedure 
is  used  to  generate  the  duplicate  structures  (ex.  the  text 
editor ) . 

At  the  conclusion  chapter  of  this  dissertation,  a system 
is  proposed  which  provides  specific  interfaces  for 
individual  applications.  In  implementing  such  a facility 
for  econometric  modeling,  provisions  should  be  made  for 
three  types  of  solutions:  "dynamic  simulation"  in  which  the 
values  for  period  "t"  are  taken  from  simulated  values  in 
"t-l",  "single  equation  simulation",  solving  each  equation 
independently  for  each  variable,  such  as  to  track  the 
characteristics  of  each  equation  and  finally  "one-period 
simulation"  using  historical  data  for  endogenous  lagged 
values.  The  interface  should  then  generate  the  appropriate 
MODEL  specification  corresponding  to  the  qiven  equation 
structure. 

3.5.2  Mechanisms  for  Dynamic  Multipliers  and  Policy  Analysis 

For  purposes  of  forecasting  and  policy  making,  it  is 
important  to  analize  the  dynamic  properties  of  a model.  It 
is  always  possible  to  obtain  a new  solution  for  every 
possible  policy  assumption  (i.e.,  for  every  possible 
exogenous  value  representing  a policy  variable).  However  it 
becomes  more  convenient  to  use  some  quantitative  notion  of 
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the  response  of  the  model  to  specific  oolicy  chanqes.  When 
a chanae  in  an  endoqenous  variable  is  induced  by  a unit 
chanqe  in  an  exogenous  variable,  the  ratio  between  the 
former  and  the  latter  is  called  the  "multiol ier " . Knowinq, 
for  instance,  the  effect  that  an  increase  in  1 billion 
dollars  in  qovernment  spendinq  has  on  the  endoqenous 
variables  of  a model,  it  can  be  used  to  assert  the 
anroximate  impact  that  other  expenditure  chanqes  will  have 
on  the  economy.  The  basic  notion  of  an  "imoact  multiplier" 
which  occur  over  a simDle  Deriod  of  time  can  be  extended  to 
"dynamic  multiplier"  by  considetinq  the  Dath  of  the 
endoqenous  variables  over  time,  when  the  exoqenous  chanqe  or 
step  is  maintained  beqinninq  at  Deriod  t and  its  effect  is 
carried  out  throuqh  the  system  dynamics.  More  qeneral 
multipliers  can  be  defined  by  introducinq  combined  exoqenous 
policy  chanqes  at  different  oeriods,  for  instance  a policy 
packaqe  consistinq  of  both  an  increase  in  qovernment 
expenditures  and  an  increase  in  tax  schedule. 

To  obtain  these  dynamic  multipliers,  it  is  necessary  to 
simulate  the  models  with  different  values  for  the  policy 
variables  and  then  compare  its  solution  with  a CONTROL 
solution,  which  uses  actual  values  for  exoqenous  variables 
in  the  sample  oast  oeriod. 

By  suitable  SDeci f icat ion  of  the  module,  MOOEL  can  be 
used  for  these  exoeriments.  For  instance  in  the 
specification  of  Klein's  Model  I,  chanqes  to  exoqenous 
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vai iables  can  be  introduced  from  the  terminal  source  file 
and  assiqned  to  interim  variables  with  the  followinq 
statements : 

VAR# 1 : G (T)  = BANK . DATA ( 1 , SAMPLE ( 1 ) ) + DELTA (1,T); 

VAR#  2 : R (T)  = BANK. DATA ( 2 , SAMPLE (2) ) + DELTA ( 2 ,T)  ; 

VAR#  3 : T1 (T) = BANK. DATA ( 3 , SAMPLE ( 3 ) ) + DELTA ( 3 ,T)  ; 

VAR# 4:  W2(T)=  BANK. DATA ( 4 , SAMPLE ( 4 ) ) + DELTA ( 4, T); 

/♦DELTA  VALUES  ORIGINALLY  READ  FROM  SOURCE  FILE 
TOGETHER  WITH  EXOGENOUS  DATA  */ 

The  soeci f icat ion  can  be  qeneralized  to  include 
"constant  adjustments"  in  every  structural  equation  as  well 
as  for  all  critical  parameters  in  the  model,  this  will  ciive 
greater  flexibility  to  the  forecasters  and  policy  makers, 
which  can  then  cope  with  data  revisons  and  policy  changes 
without  coslty  reestimation  or  reoroor amminq  of  the  model. 

Example : 

CONSUMPTTON : 

C (T)  = ALPHA ( 1 ) + ALPHA ( 2 ) * W(T)  • 

+ ALPHA ( 3 ) * P (T)  + ALPHA ( 4 ) * P(T-l)  + CON(5,T); 


the  values  of  all  CON  adjustments  are  also  specified  as  part 
of  a source  file.  Changes  can  be  introduced  for  specific 
time  periods  at  the  investieator  discretion  without  the  need 
to  recompose  the  specification. 


for  his  i eauii events , he  must  submit  them  for  execution  by 
MODEL.  At  this  staae  a communication  interaction  starts 
where  the  processor  will  communicate  back  to  the  user 
documentation  on  his  soecif ications  (i.e.,  if  cycles  or 
simultaneous  assertions  .are  found,  cross  reference  tables 
etc.)  or  report  errors  and  warnings  toqether  with 
solicitation  for  more  information  in  order  to  avoid 
ambiguity  or  for  completeness.  Basic  concents  involved  in 
this  interactive  otocess  in  relation  to  the  simulation 
examole  ate  given  in  next  section. 
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3.6  Interactiveness 

The  user  can  communicate  interactively  with  the  MODEL 
processor.  This  is  important  since  it  allows  the  user  to 
compose,  update  or  retrieve  sections  and  sub-sections  of  the 
MODEL  data  base  in  a conversational  mode.  Interactiveness 
serve  to  quide  the  user  in  specifying  his  problem  by 
supplying  him  with  additional  information  on  request  and  by 
providing  feedback  from  errors  found  when  composing  his 
statements.  The  documentation  normally  generated  by  MODEL 
can  be  directed  to  a hiah-soeed  printer  on  request.  It  is 
always  possible  to  execute  every  phase  of  MODEL  in  batch, 
however  it  is  exoected  that  the  use  of  the  interactive 
facility  will  reduce  the  time  a user  normally  have  to  spend 
in  preparing  a module. 

Another  MODEL  feature  is  its  capability  to  generate 
programs  which  in  turn  are  interactive.  This  is  possible  by 
proper  selection  of  parameters  in  the  MEDIA  description  and 
by  describing  an  appropriate  data  structure  which  allows  for 
such  communication.  In  giving  a summary  of  the  modeling 
process  in  chapter  two,  it  was  stated  that  this  was  an 
interactive  process  in  itself.  This  interactiveness  was 
represented  by  a feedback  loop  between  the  data  base  and 
different  stages  in  the  process.  In  generating  programs  for 
such  processes  it  will  be  of  advantage  to  give 
considerations  to  conversational  facilities. 
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3.6.1  The  Text  Editor 

The  present  MODFL  imolementat iori  utilizes  OED  under  Time 
Shatinq  Option  (TSO)  [IBM  74]  as  a text  editoi  to  mantain 
the  MODEL  data  base.  TSO  orovides  the  necessary  functions 
foi  storing,  uodate  or  retrieval  of  sections  or  subsections 
in  the  data  base  as  well  as  aeneral  data  management 
facilities  for  interactive  communication.  In  summary  TSO 
interacts  with  the  system  throuqh  a command  lanquaqe  which 
al lows : 

-Online  data  entry  and  retrieval 

-Batch  capabilities  to  submit  -jobs  and  route  output 
to  high  speed  printers 

-Interactive  programming  and  debuoqing 

Presently  TSO  uses  the  Telecommunication  Access  Method 
(TCAM ) of  an  0S/VS2  IBM  environment. 

3.6.2  The  HELP  Statement 

HELP  is  a teaching  aid  provided  durino  syntax  analysis. 
It  can  be  used  to  obtain  a brief  description  of  the  syntax 
of  any  statement  in  the  MODEL  lanauaqe,  or  to  interpret  the 
significance  of  an  error  code  reported  to  the  user.  The 
HELP  statement  is  not  stored  in  the  associative  memory,  as 
the  other  MODEL  statements,  but  the  requested  information 
will  be  displayed  immediately  to  the  user.  The  following 
syntax  conventions  should  be  used  with  the  HELP  statement: 


» 
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Che  Ip-statement >:: = HELP  [<argument>] 

<ai gument > : : = MODEL 
| SYNTAX 

| <statement-type> 

I <er  i' o r -code > 

If  the  aiqument  is  the  kevword  MODEL,  then  a short  list 
of  all  allowed  statements  in  MODEL  is  displayed. 

The  keyword  SYNTAX  should  be  used  to  obtain  a summary  of 
syntactical  conventions  used  by  MODEL  statements. 

The  syntactical  unit  <statement-type>  is  used  to  obtain 
syntactical  information  on  specific  statement  tyoes. 
Presently  the  following  keywords  can  be  used: 

<statement-type>  describes  the  syntax  of 


MODULE 

Module  statement 

SOURCEF 

Source  File  Statement 

TARGETF 

Target  File  Statement 

REFER 

Refer  Statement 

MEDIA 

Media  Statement 

FILE 

File  Statement 

RECORD 

Record  Statement 

GROUP 

Grouo  Statement 

FIELD 

Field  Statement 

INTERIM 

Interim  Statement 

SU3SCRI PT 

Subscript  Statement 

ASSERTIONS 

Assertions 

If  an  error  code  is  given  as  argument,  then  the 
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col LesDoniinq  description  will  he  displayed. 

HELP  can  be  issued  without  arquments,  in  such  case  a 
brief  descriotion  of  the  most  tecent  error  code  is 
displayed,  if  on*1  is  found,  else  the  aroument  MOOEL  is 
assumed  as  default. 

3.6.3  Specifyino  Simultaneous  Assertions 

flODEL  provides  the  capabilities  to  'force'  a set  of 
assertions  to  be  treated  as  a simultaneous  set  by  qivinq  a 
common  qualifier  name  to  every  assertion  that  belonqs  to  the 
qtoup.  This  is  common  practice  in  some  instances  where  a 
faster  overall  convetqence  is  souqht  in  solvinq  a biqqer  set 
of  simultaneous  equations  containinq  the  'forced'  one. 

If  the  user  thinks  that  by  inneL  iteration  of  this 
critical  atouo  overall  speed  of  conveLqence  can  be  improved, 
or  if  hy  any  reason  it  is  desired  to  imoose  a partition  on  a 
set  of  simultaneous  assertions  into  smaller  subsets  (at  any 
recursive  level  by  nrooet  selection  of  qualifier  names),  it 
is  possible  to  override  the  qrouoinq  done  bv  the  processor 
by  usinq  this  simole  na.mino  technique. 
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COUNTRY. INNER1. PRICE: 
SOLUTION:  G_S,40  <assertion>; 
COUNTRY. INNER l.CONSUMP: 


COUNTRY. ASS_NO_N: 

SOLUTION:  G S,20  <assei tion-n> ; 

— COUNTRY.  <L'est-of-qname> 

I 1 to  20  iteratons  max. 

I 

| — INNER1 . <rest-of-aname> : <assertion>; 

II  1 to  40  iterations  max. 

I I 

I — end-of  INNER1 

I 

I end-of  COUNTRY 

Figure  3.22 

Inner  Iteration  Descriotion 

All  the  assertions  qualified  by  COUNTRY  are  treated  as  a 
simultaneous  grouo  containing  a sub-group  INNER1  which  is 
inner  iterated  by  the  solution  procedure  as  shown  in 
Figure  3.22.  For  every  iteration  of  the  outer  group,  the 
inner  group  will  iterate  until  convergence  or  up  to  the 
maximum  number  specified  as  parameter  of  the  solution 
process . 
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3.6.4  Reoortinn  of  Simultaneous  Assertions 

After  submission  of  a module  foi  orocessim,  the  cvcles 
analysis  phase  will  search  for  loops  and  simultaneous 
equations.  Circular  definitions  between  elements  other  than 
assertions  ate  normally  reported  as  errors.  However  for 
cycles  between  variables  referenced  in  assertions,  with  some 
trivial  exceptions  (ex.  A = A + 1),  it  is  not  Possible  to 
differentiate  between  a user  error  in  comoosinq  his 
description,  from  a model  characterized  by  a simultaneous 
equation  system.  To  resolve  this  otoblem  MODEL  telv  on  its 
interactive  capability  by  always  qivinq  back  to  the  user  the 
identified  qroups  of  elements  circularly  defined,  and 
requestinq  the  orooer  parameters  for  solution  or 
alternatively  to  open  the  looos  by  recomposinq  the 
assertions  properly.  As  stated  in  section  3.1.3  this  is 
consistent  with  the  concent  that  elements  which  recursively 
reference  between  themselves  ate  considered  in  the  same 
equivalence  class  from  a syntactical  basis.  Semantically 
however,  not  every  recursive  definition  will  convetqe  to  a 
solution  by  an  iterative  process. 

Referrinq  back  to  the  simulation  examnle  in  sections  3.3 
- 3.4,  after  the  model  description  is  analvzed  by  MODEL,  the 
followinq  information  is  reported  back: 
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THE  FOLLOWING  GROUP  OF  ITEMS  ARE  CIRCULARLY  DESCRIBED 


INCOME 

TARGET 

IS  Y 

PRIV_PROD 

TARGET 

IS  E 

TOT_WAGE 

TARGET 

IS  W 

PROFITS 

TARGET 

IS  P 

CONSUMPTION 

TARGET 

IS  C 

INVESTMENT 

TARGET 

IS  I 

PRIVJWAGE 

TARGET 

IS  W1 

The  assertion 

<headinq>  must  then 

be 

given  with 

parameters 

for  the 

solution  of  this  proper 

simultaneous 

equation  model. 

example : 

INCOME: 

SOLUTION: 

G_S , 50 

TEST  Y = 

.1,  C = .1  ; 

since  the 

assertions 

are  grouped  in  the 

data 

base,  it  is 

possible  to 

provide 

parameters  using  any 

of 

the  assertion 

names.  The  solution  procedure  for  the  whole  system  is 
specified  to  be  Gauss_Seidel  with  a maximum  of  50 
iterations.  No  initial  conditions  are  declared,  hence  these 
will  be  the  system  default  (i.e.,  the  endoqenous  value 
lagged  one  period).  The  test  value  used  to  stop  the 
iterations  are  the  default  of  .01  for  all  variables  with 
exception  of  Y and  C,  for  which  it  is  modified  as  indicated. 
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AfteL  analysis  by  the  MODEL  processor , a complete  and 
formatted  report  is  qenerated.  This  document  include  the 
otiqinal  source  specif ication  Plus  additional  statements 
automatically  generated  hy  MODEL  for  completeness . The 
listinq  also  include  documentation  headers  for  each  aroup  of 
associated  statements  tvoes  such  as  Data  Description, 
Assertions  and  File  statements.  Fiqure  3.23  shows  a sample 
output  from  the  specification  of  Model-I.  The  appiooriate 
indentation  in  the  text  is  also  system  qenerated  for 
readability. 

Simultaneous  assertions  are  also  qrouped  together  in  the 
output  report  for  user  convenience,  as  well  as  in  the 
associative  memory  for  later  retrieval  and  generation  of  a 
solution  orocedure.  Figure  3.24  illustrate  the  reoortinq  of 
simultaneous  equations  from  the  example  given  in  this 
chapter.  A complete  listinq  of  the  output  reooits  produced 
by  the  processor  from  the  SDecif  ication  of  Model -I, 
including  cross-reference  and  attribute  leoort  of  data  names 
as  well  as  the  complete  precedence  or  adjacency  list  is 
presented  in  Aopendix  A. 
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CCCU0U01 

OGCCOOQ2 

/•  _ „ _ _ */  OCCOGOG3 

/•  PCOEl.I  HCUOCE  CESCR1PIICN  ' * •/  OCCCOOCA 

/« J*/_CC  LOGO  OJ5_ 

CCCCCOC6 

_ cccccocf 

MODULE:  H03Ei.il  " . ' CCCOCGCB 

SCUKCt  Ell  E i:  INPUT , UCCPENT . dANK .PAkAMJ _ _ _ _ _ 00000009 

1AK0EI  FlLtS:  REPukl .UCCPENI ; " OJOUOOIO 

000000  1 1 

/*»•»*« ••«•»*••••••***»»»••*•»•»»*»*••••«••*•*»*»••«••«•»* ••*••••*•***/  OCOOOO  l~2 

_ /• */  000000  13  _ 

/»  CATA  DESCKIPliCN  STAIEPENTS  •/  CCCUOOIA 

/•  •/  ocoocoi*o_ 

00000010' 

* 00 1.0  Uy  1 7 

01 SK  IS  MECIAIUN1I-3330I;  CCCCCYCO 

TERM  IS  HECIAI 0OC0U20G 

IERP  IS  MtCIA!  ' OOCOQ3CO 

DISK  IS  HE0IACUHIT-333QH OOCCOAOO 

OOoOOOOl ‘ 

/ OOP CCSAC  2 

/*  •/  00 COO 003 

/• ^REPCRJ^_F  1LE_CE  SCRI  PI  ION */  COtOOCOA 

/•  •/  CGCCOAGS 

_ CJuCOAO<>_ 

‘~oocccact 

REPORT  IS  FILE  LIE*  PI : CCCCC5C0 

cioiPLi  is  uKUvipTrcpori ,isip_np) i s oocooioo 

TITLE  IS  iUCOhLICuTPCII  I _ _ CGCC0700 

TEAR  IS  FltlolUlLE. PICTURE  'IMA'Ii  “ COCCCBCJ 

PERIOD  IS  FIELD! Tl ILc .PioTukE  •0oI6IA,IS_ C0C0C90O_ 

LACEL  IS  FlkLLlTlILl.PICIUKE  •cjISIAM;  OOCCIOOO 

V A l_JE_  J S_  f I1IIUI  TLE.  P_lo  TUP  c ‘RJISIAM: CC  C C 1 100 

ENikY  IS  KECokoIUuIPoWUuTh  iTT  00001200 

COT. YEAR  IS  FIELOIEMRY. PICTURE  •ZZZO'U UUCC1300 

C IS  FiELUtcMKY.PloIoKE  •I6IcZ9M;  " “ 0JC01A00 

_ c is  fieluiemky.piciure  •eoeiaia'i;  ccccisoo 

CO  T.  VALUE  IS  FIELUltMRY, PICTURE  • EdSZZZ 9V9S 9 • | ; C0001600 

OOCOlOOl 

/•••••••••♦•••••••••••••••••••••••♦•••••♦•••♦••••••••••♦•••♦••♦••A**/  00oCl602 

_/• •/  C0CO16O3 

/•  "INPUT"  file  CESCMPTIUN  " •/  OOCOI6CA 

/•  •/  00CC1605 

/•••»•••*••*•*•••«• *•*»••••••*»* *••**»»••»*•*»•*»«»• »*•»•••»•«••*•»«/  00C01606 

OOCC16CT 

INPUT  IS  FILEITEKHI;  COCCI/CO 

CNTRI PARAH  IS  RtLCROI INPCTI S _ OCCCISOO 

SIM.YEAM  IS  FI  ELC|0NFRL_PAKAH»  RUM  Erl  I C I A)  1 ; OOCCIOOO 

S1P.PJ  IS  FICLCICMhL_PaRAH,NuPEHI0I2II;  CCCC20C0 

S1M.NP  is  FlELCICurRL_PARAM,NUPERICI2ll!  ' " U0C021O0 

• SIP,  type  IS  FI  EH  ICMRL_RARAP.CF.Akl  121  II CO  C C 2 2 c 0 

LIsIhEP  is  KEoGKLl INPUlli  0JC02300 

TC1A  IS  PIELOII ISTKEP.NCPERICIAIJ; CCC02A00 

VAKf  IS  FIELOILISIREP.I  TCl*l  .NOP  ER  ft  l oTl  S 00C02S00 

0JCO2S01 

/•••»»•«••••••»•••** •«»•*•*••»»»•* ••••••••••»•*••••• **»*•*•»*•»•••••/  OOC02SC2 

/• • / 00C02S03 

/•  "COMfOl"  FILE  CEScklPHUN  *I~ 0UC02soA 

/•  «/  00C02SC5 

...a. .........A.... *.».*»/  OCC02S06 

0CL02SC  t 
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GUI  PUT  .PEAI001  Nl •_,_P£RIUQ*  l . _ 00C131T6 

00013177 

SACC03 : 0903178 

CLTPUT«LA3ELINl*aLAuEL*S  00013179 

oo  o i i_y*o_ 

AACC09:  000 13 181 

VALUE I N)»* VALUE* 1 OOOLJ182 

00011183 

SACC13:  . _ _ 00013189 

olt_veamn»npi-»sih_veak  ► inp  » sim_po  - 21  / ooomes 

UlS*.BAMC.MH_SER.AANGE.NU»_PU_TlilM  ; UJ0131 JI6_ 

00013187 

3A0016:  0 00 13188 

OIN.NPI^MODINP  ♦ 110009. DISK. EANK.f  IM.SER. RANGE .NUM_PO_YH INI  I * li0oClil89 

_ 00011190 

3A0C17I  — ' " 00013191 

C 1N.NPI-0 1SK.HANK. 11 M_SER.NAME. LABEL  111  JCOIINI  >8 COC  13192 

bac 13193 

8AC0181  00013199 

OCT_VALUHN.NPl»biSK.aJNTM>L.TlM_SEI..OArAl*lOOCUNl,S10U02tNPI  U 00013193 

_ _ 00011196 

SA0C05:  ' ‘ 0001313  7 

TCI_VAM»COUNTIEJ(lST.eANR.TlM_SERJ:  00013138 

0o"Cl3l99 

tACCIO:  00013200 

NC»SIN_NP  ♦ HAXLAG;  ' 00013201 

_ _ _ OOC 13202 

OOO  13203 

J '• •/  OOC  1320 9 

/•  SIMULTANEOUS  ASSERTIONS  */  OJ0132C5 

/•  _ _ _ •/  U0C13206 

C0C132C7 

OOC132C8 

COC  13209 

PR  I V_ PROP: OOJ1321Q 

€ INP .1  IMP!  1*Y1  NP  »1  INP  1 1 * K INP  , V I NP  > » - MX INP . 1 t NP> > ; OOC132U 

_ 00013212 

Investment:  CQCU211 

I INP.  I INPT  l«JETAI  1 ) ♦ BETA12I  * PlMP.UNPII  » 0ETAI3)  • P1NP,  00013219 
S100C5INPII  ♦ XE1AI9I*  KINP.3  ItOOSI  NPII  I 00013213 

U0013216 

PROFITS:  00  0 132  17 

piNP.TiNPii-yiNP,TiNPii_- minp.tinfii; _ oooi32iB 

00013219 

INCCME:  00013220 

VlNP.IINPtl«CINPaTINP)l  » IINP.TINPI)  ♦ GINP.TlNPII  • H I NP . 1 1 NP  > 1 OOO  1322 1 

5 00013222 

OkO  13223 

CONSUMPTICM  _ 00013229 

C I NP  • T (NPI 1*  ALPHA  11 I » ALPHA  I 21  » Ml  NP ,T INPI I ♦ ALPHAI3I  • P 1 MP  , UCC  1 32  23 

TINPT)  v ALPhAI 91  * P (HP  • S 1000 5 INP II;  00013226 

■ ~ COO  13227 

TOT.NAGE:  00013228 

blNP.IINPil-«l(NP,TINPII  » k2 I NP  t IlNPII i OJJ 13229 

OCC 132  30 

PR  I V_MACE  I _ - - - 00JlJiJ|- 

M1INP.T(NPII>CAM1AI1I  V GAMMA  121  • EINP. IlNPII  » GAM  4A I 31  * El  00013232 
NP » S 100031 NP I I . GAMMA (Cl  • I f 1 1 NP , I I NPI I - 19331  : 00013233 

00013239 

/••»»•»•»»•••«••••*•»«*•»•*»•»*•*•••»»•  •••*.«*»  ooc  1325V 

/•  •/  G0C13236 

/•  ENO  CP  SIMULTANEOUS  GROUP  */  00013237 

/•  • / OOC 13238 
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CHAPTER  4 


The  MODEL  Processor 


4.1  Introduction 


This  chapter  summarizes  the  mechanisms  and  procedures 
used  by  the  MODEL  system  to  automatically  generate  commuter 
programs  from  a given  non  procedural  user  specification. 
The  description  presented  here  is  based  on  a version 
presently  under  development  by  the  Automatic  Program 
Generation  Project  at  the  University  of  Pennsylvania  (MODEL 
version  III  [PRY  77a, SHA  7R,PNU  76, GAN  76])  and  is  a 
revision  of  the  methodology  oreviously  used  by  [ R I N 76]  and 
extended  later  in  version  II  of  MODEL  (PRY  77c]. 

Conceptually  the  processor  can  be  considered  as  a 
function  mapping  the  set  of  descriptive  statements  which 
conforms  a particular  module  specification  into  a 
prescriptive  flowchart  and  PL/1  object  program  which  uoon 
compilation  and  execution  performs  the  desired  aoplication. 

MODULE  PROCESSOR  PL/1  PROGRAM 

SPECIFICATION  | > FLOWCHART 

(descriptive)  (prescriptive) 

The  transformation  from  a non  procedural  specification 
into  a computational  process  is  made  possible  by  first 
translating  the  description  into  a directed  graph 

representation  where  the  nodes  correspond  to  data  items  or 

155 


I 


156 


asseitions  statinq  relationships  between  them.  The  directed 
arcs  connectinq  these  nodes  ate  inferred  by  the  orocessor  by 
analvzinq  the  input  statements  for  relationships  holdinq 
between  the  nodes.  Further  analysis  of  this  directed  nranh 
representation  by  means  of  some  qraoh  theoretical  alqoritnms 
in  conjuction  with  the  interactive  communication  facility 
completes  the  translation  into  a consistent  network  which  in 
turn  can  be  interpreted  to  determine  the  seauence  and 
control  loqic  of  the  desired  module. 

Fiqure  4.1  shows  a more  refined  view  of  the  orocessor 
illustratinq  each  of  its  phases  as  well  as  the  feedback 
between  them  and  the  interactions  with  the  user. 
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The  Editor  is  the  iiiain  usei  communication  inteLface  with 
the  ptocessoi . This  component  is  external  to  the  MODEL 
processor  itself  and  was  Previously  described  in  section 
3.4.1  of  chaptei  3.  Its  function  can  be  generally  stated  as 
that  of  creation  and  maintenance  of  the  MODEL  specification 
database.  A collection  of  MODEL  statements  describing  a 
functional  module  is  referred  as  the  specification  of  a 
program.  The  user  will  normally  enter  each  of  the 

statements  composing  a specification  via  the  text  Editor. 
These  statements  ate  then  stored  in  the  MODEL  specification 
database.  The  editor  can  later  be  used  to  retrieve 
previously  created  sections  or  subsections  of  a 
specification,  and  update  these  with  new  information. 
During  analvsis  of  the  module  by  the  processor,  new 
information  is  generated,  some  of  it  as  a byproduct  of  the 
user -processor  interactions  to  resolve  possible 

inconsistencies,  ambiguities  or  incompleteness  errors. 

Other  is  generated  by  the  processor  itself  to  supplement  the 
original  specification.  In  the  first  case  the  Editor  is  the 
normal  mean  to  augment  the  specification  and  resubmit  it 
until  no  fuither  errors  ate  found.  In  the  second  case  a new 
specification  file  with  added  documentation  and  other 
i • l » v i n t information  is  automatically  created.  The  Editor 
• f'  » is*-*  in  this  lat®r  case  to  examine  and  revise 

■-!<  f;l»,  if  desired,  substitute  the 

e • . ✓ t ofoeessor  created  one. 

* -'ll  p*  i n<*h  of  the 
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components  of  the  MODEL  processor  shown  in  Figure  4.1  in 
detail . 

4.2  Syntax  Analysis 

This  phase  function  is  to  check  the  local  syntax  and 
some  semantics  of  the  input  specification.  The  front  end 
Syntax  Analysis  Program  (SAP)  is  in  turn  automatically 
generated  by  a Syntax  Analysis  Program  Generator  (SAPG) , 
whose  input  is  the  syntax  definition  of  MODEL  in  the 
Extended  Backus  Normal  Form  (EBNF)  meta-language. 


Figure  4.2 

Block  Diagram  of  the  Syntax  Analysis  Phase 


160 

As  shown  in  Fiqure  4.2,  the  automatically  qenerated  SAP 

f 

is  complemented  with  some  hand-written  supoortinq 

| 

subroutines  to  be  described  later. 

t 

The  SAPG  was  developed  by  the  Data  Description  Lanquaqe 
(DDL)  project  at  the  University  of  Pennsylvania,  and  its  use 
and  documentation  has  been  described  in  detail  in  (RAM  731, 
[RIN  76]  and  [CHA  77] . 

The  SAPG  system  uses  techniques  similar  to  those  used  by 
the  well  known  XPL  system  [*1CK  70],  but  with  some  noticeable 
distinctions;  XPL  produces  a set  of  tables  for  a "skeleton" 
whose  function  is  to  check  the  innut  (source  lanquaqe) 
accordinq  to  the  BNF  qrammat.  These  tables  produced  bv  the 
XPL  "analyzer"  must  later  be  physical lv  incorporated  into 
the  "skeleton"  otoqram  body.  Hence  the  “skeleton"  provided 
by  XPL  resemble  a qeneral  Purpose  syntax  analyzer  whereas 
SAPG  produces  a specific  ad-hoc  syntax  analysis  oroqtam  that 
parses  the  lanquaqe  described  rather  than  interpret  tables. 
Two  other  major  differences  are  found  in  the  lexical 
analysis  implementation  and  in  the  meta-lanquaqe  used  to 
describe  he  syntax.  The  "analvzet"  in  XPL  deduces 
automatical lv  the  lexical  analysis  tables  from  the  RMF 
qrammat , whereas  in  SAPG  a state  of  the  art  lexical  analizet 
based  on  finite  state  machine  concents  (transition  matrices) 
[COM  63]  was  implemented.  Finally  the  specification  of  the 
MODEL  lanquaqe  uses  th°  Extended  Packus  Wormal  Form  with 
Subroutine  Calls  (ERNF/WSC)  as  the  metalanquaqe  instead  of 
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traditional  BNF.  This  extension  enables  the  SAP  to  check 
some  of  the  statements  semantics,  to  produce  error  messaqes 
and  facilitates  the  encoding  of  source  statements,  yielding 
greater  flexibility  to  the  processor  designer  as  well  as 
providing  for  a better  overall  mechanism  in  posterior 
analysis  and  code  generation. 

Two  general  asoects  of  the  SAP  which  must  be  mentioned 
in  connection  with  the  use  of  MODEL  in  model  buildinq 
applications  are  the  following: 

1)  Local  augmentation  of  the  user  description 
(statement)  when  needed.  This  feature  is  related  to  the 
concepts  of  tolerance  of  the  language  and  comoleteness  of 
the  specifications.  The  following  example  illustrates  how 
an  incomplete  description  is  extended  as  needed  for 
subsequent  Dhases  after  syntax  analysis. 

Assume  an  assertion  stating  a behavioral  equation  for  a 
model  of  income  determination  entered  as  follows: 

I (T)  = A ( 1 ) + A ( 2 ) * R (T)  + A ( 3)  * (GNP(T-l)  - GNP(T-2)) 

First  SAP  will  orovide  a name  for  the  assertion  since 
this  is  not  given  by  the  user. 

$ASnnnn:  <assertion  body>; 

Second  the  endogenous  variable  for  investment  (I)  will 
be  declared  as  "target"  variable  in  the  assertion  since  it 
appears  at  the  left  hand  side  of  the  '='  sign.  Next  the 
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data  names  at  the  right  hand  side  of  the  *=*  siqn,  namely 

interest  rate  (P)  as  well  as  the  laqqed  variables  for  GNP 

l 

i will  assumed  "source"  variables  in  the  absence  of  other 

i 

| declarations.  Notice  that  since  SAP  restrict  itself  to  iust 

local  analysis,  the  fact  that  a variable  is  declared  as 

f 

"source"  in  a statement  does  not  necessarily  imolv  that  it 
is  an  "exogenous"  variable.  The  same  variable  may  aooeat  as 
taiqet  variable  in  other  statement  of  the  total 
specification.  Subseouent  Phases  will  analyze  qlohalv  the 
soecificaton  in  order  to  assert  possible  interactions 
between  endooenous  variables  as  well  as  the  orooer  recursive 
or  causal  ordering  (refer  to  cycles  and  sequence  analysis 
sections  4.5  and  4.R  respect i ve 1 v ) . Finally  coefficients 
(A)  will  also  be  declared  as  source  data  names  and  the 
assertion  after  syntax  analysis  will  look  as  follows: 

3AS0001 : 

SOURCE:  A ( 1 ) ,A(2)  ,R(T)  , A ( 3 ) , GN P ( T- 1 ) , GN P ( T- 2 ) 

TARGET:  I(T) 

I (T)  = A ( 1 ) + A ( 2 ) * R(T)  + A(3)  * (GNP(T-l)  - GNP(T-2)); 


j 
t 

| 

r 

.1 


Note  that  the  same  data  names  usino  different  subscripts 
expressions  are  considered  as  different  data  items.  Also 
any  references  to  functions  used  in  the  statement  will  be 
provided  as  part  of  the  assertion  header  if  not  qiven  by  the 
user . 

2)  "Merginq"  of  simultaneous  assertions.  Whenever  two 
or  more  assertions  are  qiven  the  same  assertion  name  by  the 
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user,  the  SAP  will  merge  them  by  storing  the  set  under  a 
single  storage  entry  cor resoonding  to  the  common  name.  SAP 
also  recognize  as  simultaneous  any  groun  of  assertions  which 
uses  qualified  assertion  names  and  have  a "simple  name"  in 
common.  In  this  later  case  the  different  storage  entries 
corresponding  to  each  of  the  assertions  using  different 
qualified  names  are  "linked"  together  in  the  associative 
memory  (refer  to  section  5.3,  chapter  5,  for  more  detailed 
explanation  on  the  treatment  of  simultaneous  assertions). 

Before  describing  in  more  detail  some  of  the  components 
of  the  syntax  analysis  phase,  it  must  be  emohasized  that  the 
use  of  this  advanced  "compiler-compiler"  technology  by  MODEL 
to  automatically  generate  the  syntax  analysis  program  has 
prove  invaluable  in  that  it  allows  changes  to  the  language 
to  be  made  relatively  quickly,  enabling  rapid  develooment 
changes  and  implementation. 

4.2.1  The  EBNF/WSC  Metalanguaae 

The  EBNF/WSC  includes  the  conventional  concepts  of  BNF, 
the  traditional  formal  techniaue  used  to  describe  the  syntax 
of  mechanical  languages  [BAC  59)  as  exemplified  in  the  ALGOL 
60  report  [NAU  60).  It  consists  of  a series  of  "production' 
rules"  of  the  form  "A::=S"  where  the  metasymbols  (two 
colons  followed  by  equal  sign)  denotes  a substitution  rule 
for  the  non-terminal  grammatical  unit  A from  one  or  more 
alternative  sequences  of  terminal  or  non-terminal  units 
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denoted  by  S.  Non-terminal  units  ate  enclosed  in  anqle 
biackets  "<>"  whereas  terminal  units  ate  written  directly  as 
sequences  of  chatactets  in  the  object  lanquaqe  vocabulary. 
The  different  alternatives  are  separated  by  the  metasymbol 
"I"  meaninq  "or".  To  facilitate  the  description  of  MODEL, 
BNF  was  extended  first  into  EPNF  by  incorooratinq  two  more 
metasymbols:  sauare  brackets  "[]"  used  to  represent 
ootionality  (0  or  1 ocutrence)  and  square  brackets  followed 
by  asterisk  "[]*"  to  indicate  optional  number  of  repetitions 
(0  or  more  ocutrences).  Next  the  E8NF  description  is 
auqmented  by  includino  not  only  the  syntax  specification  of 
MODEL,  but  also  names  of  subroutines  to  be  called  after 
succesful  recoqnition  of  syntactical  units  (E8NF/WSC).  The 
subroutines  to  oe  invoked  are  enclosed  between  slashes 
"/.../"  and  ate  inserted  immediately  followinq  the 
appropriate  syntactical  unit.  They  may  include  the 
subroutines  necessary  for  qeneratinq  error  messaqes, 
statement  encodinq  routines,  semantic  checkinq  routines  and 
statement  storinq  routines.  A more  detailed  description  of 
the  EBNF/WSC  characteristics  and  restrictions  can  be  found 
in  the  references.  The  complete  EBNF/WSC  syntax  definition 
of  the  present  version  of  MODEL  is  qiven  hv  fSHA  7H], 

4.2.2  SAP  qeneration  by  SAPG 

As  indicated  previously,  the  SAPO  produces  SAP  qiven  the 
description  of  the  object  lanquaqe  in  EBNF/WSC.  This  is 
done  in  three  passes  over  the  set  of  production  rules  as 
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f ol lows : 


HASS  1 : As  illustiated  in  Figure  4.3,  the  comoonents  of  each 
oioduction  are  scanned  and  sotted  to  foim  a set  of  tables. 
A "symbol  table"  is  created  with  non-terminal  units 
aooeaLinq  at  the  left  hand  side  of  a oioduction.  These  aie 
the  new  oioduction  names.  Non-terminals  aooeai inq  at  the 
light  hand  side  of  a oioduction  aie  included  into  a "work 
table"  wheieas  terminal  svmbols  will  form  a "terminal  symbol 
table".  Subroutine  references  are  included  in  a seoaiate 
table . 


Figure  4.3 


First  Pass  of  SAPG 
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PASS2:  This  oass  resolves  the  symbolic  references  in  the 
work  table.  It  checks  that  each  riqht  hand  side 
non-terminal  synbol  in  the  work  table  is  defined  and  links 
it  to  the  corresponding  entry  in  the  symbol  table.  At  this 
stage  errors  due  to  incomplete  definitions  and  circularities 
in  the  specification  are  detected. 

PASS 3 ; This  is  the  code  generation  chase  and  it  is  entered 
only  if  no  errors  were  found  in  the  preceding  nhases.  The 
SAP  is  produced  in  PL/1.  Each  production  rule  from  the 
EBNF/W3C  specification  will  generate  a PL/1  procedure.  The 
exclusive  syntactical  units  comoosina  a production  rule  are 
scanned  using  nested  IF-THEN-ELSE  clauses.  Optional 
occurrences  are  effected  by  repeated  branch  to  scan  the 
first  syntactical  item  of  the  group  usino  GO  TO  statements. 
Subroutine  references  embedded  in  the  FPNF/dSC  production 
qet  a CALL  generated  for  them  in  Place.  Calls  for 
housekeepina  subroutines  (example  to  the  lexical  analyzer 
LEX,  which  scan  and  return  the  next  token)  are  also  inserted 
in  the  procedure.  The  procedure  returns  a bit  set  to  1 if 
the  recognition  was  successful,  or  to  0 if  it  was 


unsuccessful 
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4.2.3  Supportinq  Subroutines 

The  hand-written  suooortinq  subroutines  used  in  the 
syntax  analysis  ohase  can  be  one  of  the  followinq  tvoes: 

(1)  A lexical  analyzer  (LEX)  which  scan  for  syntactic 
units  or  "tokens"  and  then  returns  to  the  SAP  for 
syntactical  checkinq.  LEX  works  as  a finite  state  machine 
based  on  the  entries  of  a transition  matrix.  Rows  and 
columns  of  this  matrix  reoresent  states  or  character  classes 
for  the  MODEL  lanquaqe.  These  classes  divide  the  entire 
character  set  into  cateqoties  such  as:  delimiters,  numerals, 
illeqal  characters  etc..  The  class  cortesDondinq  to  a 
particular  tow  represents  the  current  state  of  the  machine, 
while  the  column  class  reoresent  the  next  state.  The 
cor tesoondinq  entry  in  the  transition  matrix  reoresent  an 
action  to  be  taken,  such  as:  concatenation  of  current  token 
to  next  character,  skiooinq  of  blank  sequences  or  orintim 
of  an  error  messaqe  for  an  illeqal  character. 

(2)  Statement  semantics  checkinq  routines;  these 
routines  are  optional  and  ate  included  at  the  discretion  of 
the  processor  desiqnet.  They  can  be  used  to  check  if  a 
tanqe  or  condition  in  a syntactic  unit  is  locally  correct 
(for  instance  checkinq  that  the  reoetition  factor  of  a field 
is  between  the  inteqer  bounds  for  the  installation).  Global 
analysis  of  the  soeci f ication  for  overall  consistency  is 
performed  in  subsequent  phases  of  the  Processor. 
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(3)  Error  message  handling  routines.  The  automatically 
generated  SAP  does  not  provide  its  own  error  reporting 
facilities,  these  must  he  Dlaced  on  an  error  stack  hy 
routines  provided  by  the  lanquane  definer.  Therefore  it  is 
necessary  to  insert  a routine  name  for  that  purpose 
preceding  every  mandatory  syntactic  terminal  symbol  in  the 
EBNF/WSC  gr  ammar  of  ’dODEL.  SAP  will  pop-uo  the  aoDtODr  iate 
error  message  uoon  recognition  that  the  syntactic  unit 
reached  does  not  match  the  definition  in  the  grammar  given 
by  the  EBNF/WSC. 

(4)  Encoding  and  Storing  routines.  These  routines  act 
as  an  interface  between  the  automatically  generated  SAP  and 
the  information  storaoe  and  retrieval  subsystem  (section 
4.3).  The  invocation  is  done  at  the  end  of  each  production 
describing  a gODCL  statement  type.  Such  routines  call  the 
stote  mechanism  to  put  the  collected  tokens  in  the  simulated 
associative  memory  in  a coded  form  that  facilitates  later 


retrieval 
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4.3  The  Storaqe  and  Retrieval  Subsystem 

To  facilitate  the  storaqe,  retrieval  and  undate  of  the 
non  procedural  statements  as  requited  by  the  various 
analvsis  alqorithms,  a self-contained  and  general  nuroose 
information  retrieval  mechanism  using  a simulated 
associative  memory  (AM)  and  a Multi-list  storaqe 
organization  (PRY  66]  was  imolemented.  The  strings  are 
stored  "associatively"  in  the  sense  that  it  is  possible  to 
retrieve  items  based  on  their  content.  Detailed 
implementation  description  are  qiven  by  [RIM  76],  [CHA  771 
and  description  of  the  storaqe  entries  structures  used  by 
MODEL  III  is  found  in  (SHA  78). 

Basically  the  system  works  as  follows:  during  the  syntax 
analysis  each  user  statement  is  stored  in  the  associative 
memory  in  a coded  form  for  later  retrieval  and  undate. 
These  ooerations  are  Performed  by  the  following  routines: 

(1)  STORE:  this  routine  is  called  uDon  completion  of  the 
syntax  analysis  of  each  statement.  It  stores  in  the 
associative  memory  the  source  l3nguaqe  strings  obtained  from 
the  user  statements. 

(2)  PETREVE:  this  routine  is  used  to  access  the  storaqe 
entries  of  previously  stored  source  statements  based  on  some 
common  property  which  is  given  as  an  expression  of  key 
words. 


(3)  UPDATE:  this  routine  is  used  to  update  the  key  names  in 
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an  already  existino  storaqe  entry  previously  stored  in  the 
associative  memory. 

Three  additional  routines  comolement  the  information 
retrieval  subsystem:  RETRIE,  RETPNAV  and  RETRPRX.  These  are 
used  to  retrieve  soecific  information  about  a particular  key 
name  in  the  memory. 

4.3.1  The  STORE  Procedure 

The  STORE(S,D)  ntocedure  acceDts  strims  which  ate 
formed  by  the  subroutines  called  dutinn  the  syntax  analysis. 
It  has  two  parameters,  3 and  n.  S is  a strina  of  kev  names 
to  be  stoted  and  entered  into  a dictionary,  while  0 is  the 
oointer  to  the  previously  created  auxiliary  data  which  is  an 
encoded  form  of  the  non-key  source  lanouaqe  information. 
The  STORE  Dtocedute  creates  two  tyoes  of  entries  in  the 
memory : 

(1) -Storaqe  entries;  one  is  created  for  each  *100 EL 

statement  after  successful  scanninq  of  it. 

( 2)  -Directory  entries;  one  is  created  for  each  kev 

name  in  the  string  beinq  stored. 

A description  of  the  Directory  structure  and  key  names 
composition  is  found  in  chaoteL  5 sections  5.3.1  and  5.3.2 
respectively,  as  related  to  the  assertion  storaqe  entry 
structure  for  cycles  analysis. 
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4.3.2  The  RETREVE  procedure 

The  RETREVE  ( E , D , 3 , !I , P)  procedure  search  in  the 
associative  memory  for  storaqe  entries  satisfying  the 
boolean  expression  of  key  names  E.  It  also  checks  whether 
the  first  characters  of  data  associated  with  the  storaqe 
entries  match  thp  strinq  D.  The  search  starts  at  the 
dictionary  entry  S (normally  the  root  of  the  directory  tiee) 
and  returns  a list  of  oointers  P to  those  entries  that 
satisfies  the  request.  The  total  number  of  storaqe  entries 
satisfying  the  loqical  expression  of  key  names  is  returned 
in  M . 


The  loqical  expression  E used  as  the  basis  of  the 
retrieval  can  be  any  boolean  expression  of  key  names  in 
disjunctive  normal  form,  where  the  first  kev  name  in  each 
conjunct  must  be  non  neoated. 

4.3.3  The  RETR¥E  Function 

The  function  I’F.TR#F(S)  returns  the  total  number  of 
storaqe  entries  in  which  the  key  name  3 occur.  This 
function  is  normally  used  in  conjuction  with  the  RETREVE 
otocedute  to  obtain  the  site  of  the  attav  of  oointers  N. 

4.3.4  The  RETRNAM  Procedure 

The  procedure  R^TRNAM (S,D,N)  returns  in  D all  the  key 
names  in  the  directory  which  match  with  the  strinq  except 
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foi  the  first  two  character  orefix.  The  number  of  such 
names  is  returned  in  N. 

4.3.5  The  EFTRPRX  Procedure 

The  Dtocedure  RETRPRX ( S , D, N)  returns  in  D all  the  key 
names  in  the  directory  whose  prefix  is  contained  in  the 
str inq  S.  The  total  number  of  key  names  found  is  returned 
in  N. 


4.3.6  The  UPDATE  Procedure 

The  procedure  UPDATE(P,S)  uodates  the  storaqe  entry 
qiven  by  the  nointer  P,  such  that  the  new  key  names  niven  in 
that  storaqe  entry  will  be  the  names  in  the  strinci  S.  The 
number  of  key  names  in  S should  be  enual  to  the  number  of 
key  names  originally  in  the  storaqe  entry  niven  bv  P. 


4.4  The  Precedence  Matrix 


173 


The  analysis  of  a liven  inout  soeci f ication  deoends  very 
stionily  on  the  implicit  relationships  defined  between  the 
statements  of  the  module.  A partial  order  between  MODEL 
statements  can  be  analyzed  bv  representing  the  soecif ication 
as  a directed  qraoh.  The  directed  qraoh  in  turns  can  be 
depicted  in  memory  as  a weighted  adjacency  or  "precedence" 
matrix.  The  matrix  will  contain  n rows  and  n columns  for 
the  n nodes  in  the  directed  qraoh.  An  entry  P(I,.J)  will 
represent  the  "type"  of  relationship  between  node  I and  node 
J.  Actually  the  precedence  relationships  in  MODEL  version 
III  is  implemented  as  n different  "lists"  instead  of  a 
matrix  in  order  to  save  soace  and  access  time  to  its 
entries.  For  expository  purposes  however,  these  n lists  can 
be  considered  to  simulate  the  precedence  matrix. 

The  first  stage  in  the  construction  of  the  directed 
graph  representation  is  to  build  a "dictionary”  of  data 
names  and  assertion  names  used  in  the  soecif ication.  If  a 
data  name  is  used  with  different  subscripts,  one  entry  is 
created  for  each  one  with  a different  subscript  exotession. 
Assertion  names  can  have  only  one  dictionary  entry.  If  a 
dictionary  contains  n entries,  then  the  precedence  matrix  is 
generated  of  size  n x n.  If  the  Jth  name  is  the  succesoi  of 
the  Ith  name,  then  an  entry  P(J,J)  > 0 is  entered  in  the 
matrix.  The  actual  value  of  the  (I,J)  entry  represents  the 
type  of  relationship  holdinn  between  the  two  names.  A 
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complete  list  of  functions  and  procedures  used  to  create, 
access  and  update  both  the  dictionary  of  data  names  as  well 
as  the  OLecedence  lists  can  be  found  in  f SM A 78], 

Distinquishinq  amona  tyoes  of  otecedence  relationships 
will  play  a crucial  role  in  later  staqes,  oarticularly  in 
completeness  and  cycles  analysis  and  in  code  qene ration. 
The  different  precedence  relationshios  are  explained  in 
chaDter  5 section  5.2.1  toqether  with  a summary  of  the 
precedence  lists  structure.  An  overview  of  the  dictionaiy 
format  is  also  presented  in  chanter  5 section  5.2.2  as 
related  to  the  cycles  analysis  process. 

4.5  Completeness  Analysis 

The  functions  of  this  component  is  to  resolve 
incomplete,  ambiquous  or  inconsistent  specifications.  It 
does  so  by  first  tryinq  to  compose,  modify  or  delete 
statements  automat ica 1 ly  throuqh  analysis  of  the  precedence 
matrix,  and  usinq  available  information  in  the  associative 
memory  as  well  as  default  Parameters.  As  a second 
alternative  it  resoits  to  the  interactive  feature  of  the 
man-machine  interface.  It  will  compose  error  messanes  and 
will  send  them  to  the  user  who  can  then  modifv  or  add 
statements  to  the  MODEL  database  usinq  the  Editor.  The  user 
will  also  be  notified  of  the  chanqes  done  automatically  bv 
the  otocessoi , so  he  can  accent  those  modif ications , or  take 
them  as  examples  which  ho  can  override  with  new  information 
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through  the  interactive  communication  facility. 

Among  the  completeness  criteria  required  by  MODEL  is 
that  of  a "well  formed"  directed  graph  in  the  following 
sense*  ( PRY  77a ] : 


(1)  - Rows  and  Columns  in  the  precedence  matrix  must  have 
the  following  entries: 


(a)  Each  row  and  each  column  must  have  at  least  one 
element  of  a precedence  type,  with  the  following  exceptions: 
columns  of  source  media  and  rows  of  target  media  must  not 
have  precedence  type  elements.  Namely,  source  media  nodes 
do  not  have  terminating  directed  arcs  and  target  media  nodes 
do  not  have  emanating  directed  arcs.  Also  tows  of  field 
statements  may  have  no  entries  (where  tarqet  data  is  not 
dependent  on  this  field). 


(b)  RECORD  descendents  of  ISAM-orqanized  FILE  nodes, 
must  have  a type  7 (pointer)  element  in  the  respective 
column . 


(c)  Columns  of  INTERIM  data  names  representing  a 
variable  length  or  a variable  number  of  repetitions  of  a 
datum  must  have  a type  5 or  type  6 element  respectively. 


A failure  of  this  criterion  indicates  incompleteness  and 
a statement  must  be  added. 


(2)  - The  number  of  and  types  of  precedence  entries  in  rows 
and  columns  must  be  as  follows: 


(a)  Each  source  data  column  or  target  data  tow  can  have 
only  one  type  1 or  one  type  2 element,  respectively. 


(b)  An  assertion  row  can  have  only  one  type  4 element, 
except  where  the  assertion  is  compound. 


* These  completeness  criteria  are  not  exhaustive  and  some 
omissions  and  errors  may  not  be  recognized. 
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(c)  An  assertion  column  must  have  a number  of  type  3 
elements  equal  to  the  number  of  source  variables  of  the 
assertion . 


(d)  All  orecedence  tvoes  must  be  only  in  the  allowable 
elements  tyoes  as  qiven  in  chapter  5 sect  ion . 6 . 2 . 1 . 


(e)  Repeatina  data  names,  or  their  descendents,  when 
used  in  assertions  must  have  a subscript  of  own  or  closest 
ni edecessot . 


Failure  of  this  criterion  indicates  ambiouity  and 
statements  must  be  modified  or  deleted. 

Fiqure  4.4  shows  a refinement  of  the  completeness 
analysis  phase  which  in  coniuction  with  the  followinq 
example  will  be  useful  in  illustrating  some  of  the  functions 
of  this  component. 

Consider  anain  the  specification  for  a model  of  income 
determination  where  the  user  starts  by  qivinq  the  initial 
specification  as  consistinq  of  onlv  the  followina  two 
assertions : 


C = -6.R  + .67  * ONP; 
CNP  = C + I + G; 


jik: 
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The  objective  here  is  to  illustrate  one  steD  of  the 
interactive  communication  where  the  processor  attempts  to 
complete  the  soec i f ica t ions  and  submit  it  to  the  usei  for 
review.  Since  the  complete  specification  mav  not  be  totally 
satisfactory,  the  user  can  modify  it  and  resubmit  it  aqain 
foi  orocessinq,  resultinq  in  further  additions  until  a 
complete  specification  similar  to  the  one  presented  in  the 
example  qiven  in  chanter  3 is  obtained. 

Durinq  syntax  analysis  the  two  assertions  will  he  named 
$AS0001  and  5AS0002  and  placed  in  the  AH.  Next  the 
precedence  lists  will  be  created  and  its  equivalent 
precedence  matrix  representation  will  look  as  the  area 
enclosed  by  the  dotted  lines  in  Fiqure  4.5.  Notice  that 
thouqh  there  are  no  description  statements  for  the  names  C, 


CMP, 

I and 

C, 

these  names 

are  included  in 

the 

dictionary  as 

they 

are 

referred  by  the 

two  assertions 

and 

therefore  are 

also 

shown 

in 

( PI  • 
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Growing  [P]  for  Model  of  Income  Determination 
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Pintne  4.<S 


Oitected  Giaoh  foi  Model  of  Income  Detei mination 
(Number  indicates  oidei  of  composition  of  statements) 
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/ 

COMPOSED  BY  I $ A S 0 0 0 1 : C = -6.3  + .67  * GNP;  1 

< 

USER  | SAS000  2 : GNP  = C + I + G;  2 

\ 

/ / 

I ON  TEST  I C IS  INTERIM (MUM (7) ) ; 1 

I IS  THERE  | G IS  FIELD  ( S SOURCE R , NU'1  ( 7)  ) ; 4 

I A < GNP  IS  INTERIM (NUM (7) ) ; 8 

I STATEMENT  | I IS  FIELD ( SSOURCER ,NUM  ( 7) ) ; 6 

COMPOSED  | ? | 

BY  < \ 

PROCESSOR  | / 

I I SSOURCER  IS  RECORD ( SSYSIN) ; 7 

I ON  TEST  | STARGFTR  IS  RECORD (SYSPPINT)  ; ft 

I OF  < SSYSIN  IS  FILE (SDISK1 ,SEO) ; 9 

I CRITERIA  | SSYSPPINT  IS  FILp($DISK2,3Er')  ;10 

I l I SUI3K1  IS  MEDIA (DISK) • 11 

! I SDISK2  IS  MEDIA (DISK);  12 

\ \ 


Fiouie  4.7 

Statements  foi  Model  of  Income  Determination 
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The  first  steD  followinq  the  flow  maqiam  in  Fiaure  4.4 
is  to  select  the  items  in  the  AM,  one  at  a time,  according 
to  their  alphameiic  older  in  the  directory  of  the  AM.  The 
older  of  composition  is  later  shown  in  Fiaure  4.7.  The 
fiist  name  selected  is  C,  and  since  there  is  no  descriptive 
statement  for  it,  it  fails  the  fiist  test  ciiteiion  and  a 
statement  is  aenerated  with  the  default  parameters  of 
INTERIM  (MUM(7)),  as  shown  in  Fiaure  4.7.  Generally  data 
types  will  be  selected  in  aareement  with  other  data  used  in 
the  rest  of  the  specification.  MUM (7)  is  the  default  in 
absence  of  any  othei  information,  "text  G fails  the  test  of 
whether  theie  is  a statement  for  it,  since  it  is  a source 
data  name  of  an  assertion  but  no  target  data  name  of  any 
other  assertion.  Ry  default  it  is  assumed  a source  data 
FIELD.  Since  it  has  no  named  parent,  the  Processor  assiqns 
a name  SSOIJRCER  foi  it.  Then  GNP  also  fails  the  test,  hut 
since  it  is  used  as  tanet  data  name,  an  INTERIM  statement 
with  default  of  NUM(7)  is  qeneiated.  Finally  I is  treated 
as  G,  that  is,  it  is  assumed  a souice  FIELD  of  SSOURCFR. 
This  process  is  shown  in  Fiqute  4.6  and  4.7.  The  directed 
qraoh  in  Fiqure  4.6  correspond  to  the  precedence  matiix  fP] 
shown  in  Fiaure  4.5.  Also  the  dotted  area  correspond  to  the 
oriainal  user  specification.  The  nodes  of  the  qtaoh  are 
numbered  to  indicate  the  order  in  which  the  statements  are 
qeneiated.  The  oriqinal  specification  will  mow  up  to  the 
complete  representation  as  shown  in  Fiaures  1.5  and  1.6. 
FILE  and  MEDIA  statements  will  be  aenerated  by  the  system 


1 R 3 


for  both  SSO'JRCFR  and  the  cot  lesooniina  outDut  record 
STARGETR . The  final  5oec i f icat ion  submitted  to  the  user  for 
tevision  is  oiven  in  Fioute  4.7.  Thouqh  the  SDecif ication 
may  still  be  not  totally  satisfactory,  it  will  induce  the 
uset  to  make  further  changes,  additions  and  deletions.  Note 
that  since  cycles  analysis  have  not  vet  beinq  nerfotmed, 
each  assertion  is  still  remesented  by  a different  node. 
■\fter  cycles  analysis  the  two  assertions  will  be  linked  into 
a sinqle  node  r eot esen t a t ion  indicatinq  a simultaneous  qrouo 
of  equations. 

F iqur e 4.7  also  shows  at  the  left  the  tests  from  Fiaute 
4.5  which  qenerates  the  resnect.ive  statements. 

The  criterion  1 test  can  also  tr inner  oeneration  of  a 
new  assertion.  This  will  haooen  if  no  tarqrt  data  is  found 
to  be  a taiqet  of  an  assertion.  In  this  case  the  orocessor 
will  search  for  a synonym  source  data,  and  if  found,  it  will 
generate  an  assertion  indicatinq  equality  between  them. 

The  criterion  2 test  triqqers  qeneration  of: 

(1)  Oualifyinq  data  names  for  ambiquous  data  names  and 

(2)  Subscriots  of  Leoeatinq  data  names  or  of  the 
nearest  otedecessor  of  reoeatinq  data  names. 

Finally,  after  the  oraoh  is  considered  to  be  comolete, 
the  orocessor  checks  if  the  header  consistinq  of  module 
name,  source  and  taroet  files  is  oresent  in  the 
specification.  If  missinn  it  will  suooly  the  necessary 
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Th«  description  of  the  completeness  analysis  ohase  is 
now  finished,  with  the  exceotion  of  some  alqorithms  used  in 
checkinq  the  consistency  of  subset iots  in  the  soecif ication. 
Since  this  task  is  the  subiect  of  onqoinq  research  and  is 
reported  in  (SHA  78]  and  f Piin  76]  it  will  not  be  described 
here. 

4.6  Cycles  Analysis 

This  phase  search  for,  and  analyze  recursive  references 
in  a specification.  Recursive  references  between  data  names 
creates  cycles  in  the  qtaoh  representation.  because  of  the 
non-procedural  nature  of  MODEL,  these  cycles  are  not  allowed 
unless  thev  leqitimatelv  represent  a set  of  linear  or 
non-linear  simultaneous  equations  which  ootentiallv  may  be 
solvable  by  usinq  appropriate  numerical  methods.  Since 
MODEL  does  not  explicitly  allow  for  iteration,  but  instead 
uses  subscripts  in  state nents  which  are  considered  to  be 
alqebraic  tautologies,  an  assertion  such  as:  A = A + 1 would 
constitute  a cycle  of  lenqth  one.  If  A were  declared  as 
both  a source  data  name  and  as  tarqet  data  name,  then  the 
assertion  woul'’  be  automatically  modified  to: 
TARGET. A * SOURCE. A + 1,  otherwise  the  user  will  have  to 
modify  his  soec i f ica t ion  and  "ooen"  tne  cycle.  Mote  comolex 
cycles  ate  analyzed  and  either  automatical ly  "opened"  by 
otooet  oua 1 i f icat ion  or  bv  solicitinq  such  chanqes  from  the 
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user.  Blocks  of  assertions  leoiesentinn  simultaneous 
eouations  will  'oe  qrouoed  into  a common  storaqe  entry  in  the 
associative  me  mot  y (reoresentinq  a "sincile"  node  in  the 
graph)  , and  a solution  otocess  will  he  qenerated  for  them 
at  the  code  qeneiation  staqe. 

Detailed  descriotion  and  documentation  of  this  ohase  is 
presented  in  chapter  5 of  this  dissertation. 

4.7  Documentation 

This  ohase  automatical ly  oenerates  the  lists,  reoorts 
and  tables  necessary  for  qenetal  reference  and  future 
program  maintenance.  The  documentation  consists  of  three 
marts: 

1)  The  Specification  L,is_t.  This  is  an  ordered  list  of 
the  niven  module  specification  divided  into 

sections:  header.  Data  definition  and  Commutation 

description.  race  section  is  in  turn  divided  into 
cor  respond ina  subsections:  module  name,  source 

files,  tar  net  files  and  references  for  the  header 
section.  *!edia,  Piles  and  Pointer  tyoe  assertions 
comoosinq  the  data  description  section.  The 

statements  in  eacn  file  ate  indented,  reflectinn  the 
tree  structure  of  the  file  (tefei  to  chapter  3 
section  3.2).  Interim  variables,  subscript 
parameters  and  assertions  are  all  listed  and  every 
statement  is  numbered  on  the  rioht.  An  examole  of 
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an  specification  list  foi  the  simulation  examole  of 
Klein's  'lode  1 I was  shown  in  chaoter  3,  Fiquie  2.23 

2)  Cto^s-Re feL ence  This  consist  of  an 

alohanumer ical  ly  ordered  cioss  tefeience  report  of 
all  names  (data,  assertions,  keywords,  subscripts, 
interim)  used  in  the  soecif ication . Each  name  is 
listed  with  a brief  description  of  its  attributes 
and  the  line  numbers  of  the  statements  in  which  it 
appears.  Fiquie  4.3  shows  an  examole  of  a tyoical 
cross-iefeience  report. 

3)  Precedence  Fist.  A "precedence"  or  "adiacencv" 

table  is  qenerated  as  a list  deoictinn  the 
relationshios  holdirn  between  . a name  and  its 
successors  and  predecessors.  A samole  of  the 

precedence  list  cot resoondino  to  the  simulation 
examole  in  chapter  3 is  oiven  in  Fiquie  4.9 
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f Cross-Reference  and  Attribute  Report 
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4.8  Sequencing  and  Iteration  Analysis 

In  this  step  the  NODEL  statements  ate  ordered 
sequentially  accordinq  to  otecedence  in  the  directed  qtaoh 
teoi esentat ion , and  the  scope  of  iterations  is  determined 
and  optimized.  The  ordered  statements  represent  in  fact  a 
flowchart  for  the  otoqram  module.  The  subsequent  code 
qeneration  component  will  translate  this  flowchart  into 
cor tespondinq  PL/1  code, thus  qeneratinq  the  required 
p top ram. 

This  objective  is  attained  by  means  of  two  coooeratino 
orocedutes:  RANK(Pk,Sk)  and  iTER(Pk).  RANK  assiqns  ranks  to 
statements  and  keeo  them  in  an  order  vector  (0)  . ITER 
selects  the  statement  names  for  an  iteration  and  creates  a 
precedence  list  'Pk  ' for  each  subset  iot.  'Sk'. 

Since  the  jraoh  teptesentinq  the  module  specification  is 
an  acyclic  qtaoh  after  cycles  analysis  (with  the  excention 
of  qtouns  of  simultaneous  equations  which  are  "linked”  or 
"merqed"  in  tne  Ar*)  , PA^K  uses  a topoloqical  sortinq 
alqorithm  similar  to  the  ore  described  by  Knuth  [KNU  5R]  to 
rank  the  statement  names  in  tne  Precedence  list  'Pk'.  After 
exhaustinq  'Pk',  excent  for  statements  with  other  subset iots 
than  'k',  it  calls  on  ITER.  ’’he  Dtocess  starts  with  a call 
to  RANK ( Po , nu 1 1 ) , where  Po  = P,  the  complete  otecedence  list 
of  the  specification  and  null  means  no  subscript.  ITER 
builds  a new  precedence  list  'Pk+1'  containinn  only  those 
statement  names  which  ate  candidates  for  iterations  for 
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found  subset iots.  It  then  tanks  a no  Sk+1  statement  and 
calls  on  RANK  to  sequence  the  statement  names  in  'Pk+1'. 
Upon  tetuin  ftom  RANK  it  tanks  and  END  statement.  The 
ptocess  is  summatized  in  Figure  4.10. 


(Pk) 

> 

( Pk+1 , Sk+1 ) 
< 


ITER 


RANK 


Figure  4.10 

Summaty  of  the  Sequencing  and  Itetation  Analysis  Ptocess 

As  will  be  illustrated  latei  in  chanter  5,  after  the 
sequencinq  stage  the  adiacencv  matrix  of  name  relationshios 
holding  fot  anv  model  speci f icat ion  will  become  block 
triangular.  The  stiuctuial  causal  telationshios  in  a model 
will  thus  be  obtained,  with  the  consequent  gains  in 
efficiency  fot  late1;  solution  otoceduies. 
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4.9  Code  Generation 
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PL/l  was  chosen  as  the  object  lanquaqe  because  of  its 
versatility,  generality  of  data  and  contiol  structures  and 
growing  acceotabil itv.  Its  lanquaae  features  make  it 
suitable  fot  general  business  data  orocessinq  as  well  as  for 
model  building  aoplications  in  engineering  and  social 
sciences . 

The  code  is  aeneiated  riirectlv  from  the  flowchart 
nroduced  in  the  seouencim  and  iteration  analvsis.  In 
general  it  is  a straight  forward  translation  task  using 
known  methodology  (see  for  example  f r*. I N 76]  fot  a detailed 
description).  Data  description  statements  are  used  to 
generate  corresponding  PL/1  declat at  ions . Next  single 
assertions  are  translated  into  oiocedure  calls.  Assertions 
belonging  to  a set  of  simultaneous  equations  are  grouped 
into  a solution  Procedure  to  be  described  in  detail  in 
chapter  6 of  this  dissertation.  Finally  the  flowchart 
entries  are  taken  one  by  one  and  translated  into  appropriate 
PL/1  code.  A samole  summary  to  illustrate  this  translating 
process  is  given  below: 

1)  Media  and  file  statements  are  translated  into  <JCL 
statements  and  into  ooen  and  close  file  code. 

2)  Source  record  statements  are  translated  into  READ 
record  code. 

3)  Target  record  statements  ate  translated  into  WRITE 
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record  code. 

4)  FOR  <subsciiot>  statements  are  translated  into  00 
<subscriot>  1 to  N,  where  N is  the  number  of 
r epetit ions . 

5)  EUD  statements  remain  unchanged. 

6)  POINTER. SOURCE  interim  variables  are  translated  into 
search  procedures  calls. 

etc . 

4.10  Compilation  and  Execution  of  the  Generated  Program 

The  PL/1  program  nenerated  by  the  MODEL  orocessoi  is 
next  submitted  to  the  Pl/1  Optimizer  Compiler  for 
translation  into  an  efficient  host  object  language  for  final 
execution.  The  optimizer  compiler  will  perform  low  level 
optimization  such  as:  elimination  of  common  arithmetic 
expressions,  transfer  of  constant  expressions  from  the  scone 
of  loons,  reduction  of  loaical  expressions,  etc.  (refer  to 
the  PL/1  reference  manual  [PL1  75]  for  detailed  account  of 
the  different  levels  of  optimization). 

The  program  design,  code  generation  and  optimization 
done  by  the  MODEL  processor,  in  addition  to  the  program  and 
object  code  optimization  of  the  PL/1  compiler  should  otoduce 
an  efficient  and  reliable  orogtam  ready  for  execution.  This 
will  include  a numerical  solution  Dtocedute  for  linear  or 
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non-lineai  simultaneous  eouations  normally  found  in  dynamic 
models.  The  documentation  oroduced  automatically  by  MODEL, 
toqether  with  its  interactive  communication  facility  should 
substantially  reduce  debuaqim  time  for  every  staae  of  model 
deve loDment . 


CHAPTER  5 


Cycles  Analysis 


5.1  Introduction 

This  chanter  describes  the  methodology  and  alnorithms 
used  in  the  cycles  analysis  nhase  of  the  MODEL  oiocessot. 
The  set  of  MODEL  statements  used  to  describe  a module  are 
translated  into  a "directed  qraoh"  reoresentation.  The 
nodes  of  this  graph  ate  either  data  names  oi  assertions. 
The  directed  arcs  connecting  these  nodes  define  a precedence 
relationship  between  them,  which  may  be  of  different  tVDes, 
depending  uoon  the  nature  of  the  successor  and  otedecessot 
nodes  involved.  This  directed  graph  reoresentation  can  be 
oictured  as  a Precedence  matrix  P (also  called  a weiqhted 
adjacency  matrix).  An  entrv  P(i,i)  in  this  matrix  will 
contain  the  precedence  type  between  node  i (predecessor 
node)  and  node  i (successor  node).  The  cycles  Dtocessot 
analyses  the  precedence  matrix  reoresentation  of  the  module 
araoh  in  order  to  detect  citculat  definitions.  Since  MODEL 
is  a non  procedural  language  which  do  not  use  "control" 
statements  or  iterative  DO  looms,  these  circularities  or 
cycles  will  generally  not  be  allowed,  with  the  exceotion  of 
those  occurring  between  assertions  and  their  data  names 
which  are  treated  as  a simultaneous  equation  system  and 
stored  as  a single  recursive  gtouo. 

Cycles  between  elements  with  precedence  types  other  than 
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those  relatinn  vat  ladles  and  assertions  are  reported  as 
errors.  The  user  should  modifv  his  statements  in  order  to 
delete  the  corresoondim  oointers,  ooenim  in  this  manner 
the  looos.  Mso  since  assignment  statements  ate  not 
neunited  in  the  lanauaqe,  some  trivial  looos  between 
variables  of  an  assertion  such  as  A = A + 1 (a  looo  of 
lemth  one)  are  leoorted  for  correction.  In  modelinq  and 
other  scientific  aoolications  wheie  it  is  intented  to 
descL  ibe  svstems  with  interactions  hetween  the  comoonent 
subsystems  (i.e.,  feedbac1'.  svstems)  , it  is  perfectly 
legitimate  to  define  non-ot ocedut a 1 1 y linear  or  non  linear 
sets  of  assertions  represent  in j such  svstoms  and  which  form 
a otouo  of  simultaneous  equations  that  can  be  solved  hy  use 
of  standard  techniques  such  as  Cramer  *s  rule  or  elimination 
method  if  they  are  linear,  or  by  means  of  iterative 
oiocedutes  such  as  Gauss-Se  ide  1 or  'iewton 's  if  thev  are  non 
linear.  The  assertions  that  describe  these  interactive 
sytems  will  form  comoound  cvcles  in  the  qraoh  reot esentat ion 
and  will  be  detected  and  reoorted  to  the  user  as  oart  of  the 
cycles  analysis. 

Before  turninq  into  the  desctiotion  of  the  alqoiithm 
i molementat ion , some  basic  notions  on  causal  systems  as  well 
as  the  necessary  definitions  and  araoh  theoretical 
nomenclature  used  in  the  rest  of  the  chaDter,  are  introduced 
in  the  next  two  sections. 


5.1.1  Causal  Order  inn 


n<i 


In  analysinq  complex  model  structures,  it  is  oossible  to 
find  subsets  of  the  total  system  under  study  which  can 
determine  the  value  of  endogenous  variables  indeoendent ly 
from  the  rest  of  the  svste.n  or  model.  Once  those 
subsco.mponents  are  identified,  it  is  possible  to  solve  an  i 
study  them  in  isolation  from  the  rest  of  the  model  with  the 
consequent  reduction  in  complexity.  The  hierarchical 
relationshio  holdinq  between  the  subcomponents  is  also 
important  since  it  helos  to  understand  the  workinq  of  the 
system.  For  instance  it  is  desirable  to  verify  if  ther^ 
exists  a one-way  causal  relationship  in  which  the  variables 
in  one  subsystem  affects  the  behavior  of  the  total  model  but 
not  vice  versa.  5inon  (ST't  5?>]  qives  a formal  treatment  of 
this  subject,  with  anolications  to  economics  and  in 
oarticular  to  the  otoblem  of  ident i f iabi 1 i tv . Later  Ando 
and  Fisher  ( AND  631  in  st.udyinq  the  structure  of  dynamic 
systems  in  the  social  sciences  stated: 


"In  RFCr.MT  YFAR3  economists  have  come  to 
deal  with  dynamic  systems  of  increasinq 
size  and  complexity.  The  difficulty  of 
annlvzina  such  systems,  however , anoeat s 
to  increase  faster  than  does  our  ability 
to  handle  them  with  the  aid  of  hiqh 
soeed  comDutinq  ecuiomont.  As  a 
consequence,  it  is  becoming  mote  and 
more  important  to  secure  information  on 
the  nature  of  those  asoects  of  a system 
which,  when  oresent,  enable  us  to  treat 
a oart  of  it  separately  from  the  rest  or 
to  deal  with  the  relationshios  amonq 
particular  subsystems  as  thouqh  it  were 
independent  of  the  structures  within 
those  subsystems." 


The  same  authoLS  provided  some  theoiems  wKich  served  as 


quides  for  the  analysis  and  inteL oi etat ion  of  dynamic 
systems  on  which  a oaLtition  or  a semi-decomnosition  can  be 
aoplied,  and  resolve  some  questions  on  the  oiohlem  of 
aqoreqation  of  variables  in  estimatino  and  simulatinq  these 
interrelated  systems.  This  section  will  orovide  a framework 
for  the  methodolony  emeloved  bv  ^onflL  which  follows. 

Since  the  t e la t ionsh ios  between  variables  in  mODRL  is 
represented  by  means  of  a orecedence  matrix,  a binary  matrix 
'A'  can  be  generated  from  this  with  entries 


A ( i , i ) = 1 if  and  onlv  if  I5  ( i , i ) > 0 

other  wine  A ( i , a ) = n 

(Jsino  this  r ecresentat  ion  it  is  possible  to  analyze  the 
structure  of  a svsten  by  noticino  that  any  two  elements  in 
it  (ex.  endogenous  variables)  s(i)  and  s(i)  are  related  in 
a certain  way,  or  thev  are  not.  Fhat.  is 

either  s(i)Ds(i)  or  s(i)~s(i) 


S . 1.1.1  Definitions 

An  n equation  svstem  in  n independent  and  consistent 
endoqenous  variables  is  said  to  self-contained  or 

determinate.  A self-contained  svstem  of  equations  can  be 
fuithei  cateoor ized  as: 

1 ) Decomoosab 1 e , if  it  can  be  Partitioned  into  subsystems 
which  in  turn  ate  also  self-contained. 
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2) Causal,  if  it  is  not  decomposable  hot  contain  at  least 
one  self-contained  subsystem. 

3)  In/j^co  noosable , if  it  has  no  self-contained  subsystems 

By  suitable  r?at ranoement  of  the  oidet  of  equations  and 
variables  in  the  system,  the  matrix  of  a decomoosable  system 
can  be  made  block-diaqonal , while  that  of  a causal  system 
can  be  made  block-tr ianoul ai  . 

In  general  tne  above  definitions  can  be  extended  to  any 
system  whose  interrelations  are  reniesented  ny  a binary 
matrix,  includinq  those  systems  composed  of  several  sets 

S = 

which  have  been  compounded  into  a sinale  one.  One  of  the 
objectives  of  this  analysis  is  •necisel'-'  to  study  the 
feasibility  of  Partitioning  the  totality  into  smaller  and 
more  manageable  constituents. 

Bxamole  1: 


(1) 

(2) 

(3) 

(1) 

1 1 1 

0 

0 

(2) 

0 1 

1 

1 

1 1 

(3) 

0 I 

1 

1 

1 1 

The  system  represented  by  the  above  binary  matrix  can  be 
partitioned  into  two  self-contained  subsystems.  One 
containing  element  { ( 1 ) } alone,  and  the  other  consisting  of 
the  set  {(2), (3)}.  The  entire  system  is  decomposable 


r 


hxamole  ?: 


(1)  (?)  (3)  <M 


( 1)  II 
I 

(?)  I 1 


(3)  1 


1 I 0 


0 I 1 


(4)  n 


1 I 1 


This  system  i a causal  one,  sir  ce  f*vo  n thoinh  elements 
f(l),(2)f  constitute  a self-contained  subsystem,  thev  in 
turn  affect  the  suhsvste  n coioos’i  iv  "lr:!t»n*s  1(3),  (4)1, 
ostablishim  in  this  wav  a causal  relntionshin. 


1C  x a mole  3: 


(1)  1 

(2)  0 


(3)  1 


( 1 ) 0 


The  above  structure  does  not  contain  anv  sel f-conta ine  ( 
subsystem,  and  is  therefore  in.decomoosa'M  e . Ml  the 
elements  interact  with  each  other.  If  the  elements  of  such 
system  were  endogenous  variables  of  a model,  then  the 
solution  to  it  can  be  found  bv  simultaneously  solvim  all 
the  eauations  of  the  system.  If  the  system  were  a orooram 
consisting  of  references  between  functions,  orocehues  an) 
data  names  in  the  vocabulary  of  the  or  oor  a •mm  inn  lanouaie, 
then  the  matrix  will  teoresent  a recursive  definition 


•.v. 


■ * r : •' 


ft  3T- 
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between  the  elements  wich  indicates  either  iteration  or  the 
need  of  stacks  or  oush-dovn  otocessors  in  order  to  imolement 
ol  'solve'  the  Drooiam.  At  this  level  of  abstraction  these 
concents  are  equivalent. 

In  a causal  system  it  is  oossible  to  introduce  a 
precedence  lelationshio  which  in  turn  determines  the 
recursive  structure  of  the  system  under  study,  as  far  as 
solution  is  concerned. 

When  workinu  in  a system  which  allows  for 
incremental itv , for  instance  when  inteoratino  several 
indeoendent ly  built  models,  the  recursive  structure  can 
become  tremendously  comolex  and  onlv  bv  means  of  an 
automatic  mechanism  it  is  oossible  to  pet  the  necessary 
insiqht  into  its  nature. 

5. 1.1. 2 block  Dianonal ization  and  block  Tr ianqular izat ion 
of  Matrices 

A self-contained  subsystem  which  does  not  contain  any 
other  self-contained  subsystem  is  called  a minimal 
self-contained  subsystem  or  a comolete  subsystem  of  zero 
order . 

It  is  then  oossible  to  define  recursively  a comolete 
subsystem  of  nth  order  as  a self-contained  subsystem  which 
becomes  minimal  after  eliminatinq  the  elements  found  in  the 
complete  subsystem  of  nth-1  otdeL  . For  ourooses  of  statinq 


the  alqotithm  let 
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be  the  class  of  comolete  subsystems  of  nth 
ordei  . 

S = {sl,s2 sm}  the  system  under  study. 

R(s)  the  teachability  set  of  s,  consistinq  of  all 
elements  of  S lyina  on  oaths  that  originate 
From  s. 

A(s)  the  antecedent  set  of  s,  consistino  of  all 
elements  of  S which  include  sr  but  which  do 


not  originate  from  s 

• 

then 

R(s)6/^)<  = = > P(s)nA(s) 

= R(s) 

V 

s«S 

From 

this  definition  it  is 

deal 

that 

at 

each 

hierarchical  level  (order)  there 

mav  be 

mot  e 

than 

one 

complete 

subsystem,  but  if  that 

is  the 

case 

they 

are 

disconnected.  That  is,  any  two  elements  (si)  and  (si)  in  S 
which  belong  to  the  same  level  ate  either  not  connected  ol 
there  is  a two  wav  connection  (stromly  connected  elements) 
between  them.  If  the  latteL  is  the  case,  they  must  belonq 
to  the  same  complete  subsystem. 


Once  the  complete  subsystems  of  zeio-orriet  are  found,  it 
is  possible  to  eliminate  all  their  elements  from  the  binary 
matrix  representation 

S'  * S - {s|  S£  /i  } V S6S 

and  then  it  is  oossible  to  look  for  minimal  self-contained 
subsystems  in  the  reduced  matrix  S'.  This  will  identify 
those  comolete  subsystems  of  first  order.  The  process  is 
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can  led  out  until  the  reduced  matt ix  becomes  emoty.  The 
matrix  can  also  be  rearranged  to  show  the  seoarate  blocks  of 
the  partition  as  well  as  the  hierarchical  structure  of  the 
system. 

ALGORITHM : 

1.  Start  by  looking  for  comolete  subsystems  of  zero  order. 
If  there  are  non<=,  the  system  is  indecomoosable . 

2.  Renumber  seouentiallv  the  columns  as  well  as  the  rows  of 
non-zero  elements  which  are  minimal  self-contained 
subsystems . 

3.  Eliminate  those  tows  and  columns  from  the  matrix 
representation  and  go  back  to  the  first  stem  unless  no 
reduced  matrix  is  left. 

The  following  example  will  illustrate  the  develooment  of 
a block  triangular  matrix  given  the  adiacencv  matrix  in 


Table-5.1 
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1 2 3 4 5 6 


1! 

I 

21 

I 

31 

I 

4 I 
I 

51 

I 

fil 


Tahle-5. 1 

Matrix  foi  examole 


1 0 
0 1 
1 0 
0 1 
0 1 
1 0 


1 0 
0 0 
1 0 
0 1 
0 0 
n i 


0 0 
0 0 
0 0 
0 1 
1 0 
1 1 


In  order  to  obtain  the  teachability  set  R(s),  as  well  as 
the  antecedent  set  A(s),  it  is  mote  convenient  to  generate 
from  the  bit  adjacency  matrix  a "oath"  or  "teachability” 
matrix  R.  The  teachability  entry  is  1 if  there  is  some  Dath 
of  any  lennth  from  i to  j 

R(i,j)=l  <**>3k,  such  that 

^(i*kj  ) =A  ( k|  , kj  )=....=A(k<n,j)=l 

R(i,j)=0  otherwise 


This  could  also  be  defined  as 

X 3 

A V A v V •••••< 


V A = R , 


k b-i 

the  transitive  closure  of  A,  where  A =A  a A and  the 

matrix  operations  X = A A B and  y = A y 0 for 

matrices  of  order  n are  defined  as: 

. '0 


X( 


i # i ) = \/  ( a ( i , 

k*i 


k ) A n ( k , j ) ) 


Y(i,  j)=A(i,i)  >/  B ( i r i ) 


boolean 

square 
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Marshall's  algorithm  (WAR  62(  can  be  used  to  qenetate 
the  reachability  matrix  in  O(n^)  as  follows: 


ALGORITHM: 


1.-  R = A 


R(i,j)=l  ==>  R(i 


v R(i,M 


The  reachability  matrix  col responding  to  the  example  is 
qiven  in  Table-5. 2 below 


II 

I 

21 

I 

21 

I 

41 

I 

51 

I 

61 


1 2 3 4 5 6 
10  10  0 0 
0 1 0 0 0 0 
10  10  0 0 
111111 
0 10  0 10 
111111 


Table-5.2 

Reachability  Matrix  for  Example 

The  presence  of  cvcles  can  be  detected  by  examining  the 
diagonal  elements  of  the  reachability  matrix  R.  Mode  i will 
lie  on  a cycle  if  and  only  if  P(i,j)=l.  In  Tahl»-5.2  it  is 
seen  that  every  element  in  the  diagonal  is  1,  hence  every 
node  of  the  corresponding  graDh  contains  a self  loon. 

Element  (2j  is  zero  order  since 


R ( 2 ) =N ( 2 ) A ( 2 ) = { 2 1 {2,4,5,6t*{2} 
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The  set  consistinq  of  elements  {1,3}  is  also  zeio  order 
since 

R(1)=R(3)=R(1)A(1)={1,3}{1,3,4,6}={1,3} 

If  the  system  were  representing  a model  of  six  equations 
in  six  endogenous  variables,  then  eouations  1 and  3 could  be 
solved  independently.  Those  columns  and  lows  qet  renumbered 
and  eliminated  from  the  representation  foi  the  next  oass  of 
the  process  as  deoicted  in  Table-5.3 


Table-5.3 

Identification  of  Zero-order  Elements 

Table-5.4  shows  that  element  {5}  is  fiist  order  and 
finally  Table-5.5  identifies  the  set  {4,6}  as  being  of 
second  older.  Again  the  resoective  columns  and  lows  get 
renumbered  and  their  entries  eliminated  from  the 
representation. 


| 


i 


Table-5.5 

Identification  of  Second-oi dei  Elements 
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SoLtinq  the  new  numbers  for  rows  and  columns  gives  the 
final  block  diagonal  l eot esentat ion  shown  in  Table-5.6  for 
the  original  binary  adjacency  matrix. 


2 

1 

3 

5 

4 

6 

21 

1 1 

0 

0 

0 

0 

0 

1 1 

1 

0 

1 

1 1 

1 

0 

0 

0 

I 

31 

0 

1 

1 

11 

0 

0 

0 

51 

1 

0 

0 

11 

0 

0 

4 1 

1 

0 

0 

0 

1 

1 1 

1 

1 

61 

0 

1 

0 

1 

1 

I 

11 

Table-5.6 

. Final  Ordering 

The  same  information  can  be  depicted  as  an  acyclic 
directed  graph,  as  shown  in  Figure  5.1.  In  order  to  draw 
this  graph  it  is  necessary  to  colect  all  elements  which  are 
interconnected  at  the  same  class  level  into  a single  vertex 
while  the  relationshios  between  nodes  at  different  levels  is 
represented  by  directed  arcs. 

ELEMENTS  ORDER 

121 iii3i TTTvnrrn  — o" 


Digraph  of  the  Matrix  in  Table-5.6 


203 


In  solving  a model,  the  order  or  hierarchy  will  qive  the 
aoprooriate  sequence  of  execution.  Those  subsystems  that 
belonq  to  the  same  order  class  can  be  solved  in  natal  lei. 
Also  savinas  in  comoutation  time  can  be  realized  if  the 
scope  of  the  iterative  solution  orocedutes  is  restricted  to 
those  nodes  containinq  a set  of  simultaneous  equations  in 
the  same  class.  Mo  attemot  is  made  at  ptesent  by  MODEL  to 
quaiantee  the  existence  of  a solution  befote  qeneiatinq  a 
solution  process  fot  a block  or  constituent  of  a partition. 
From  an  analytical  ooint  of  view  MODEL  restricts  itself  to 
iust  structural  analysis  of  the  qiven  model,  based  on  binary 
relations  between  the  elements  of  the  model.  Since  it  is 


r ecoqn i zed 

that  a partition 

and  or der inq 

based  solely 

• . 

in 

structural 

analysis,  without 

consider  inn 

the  "weinht" 

of 

every  element  (variable)  involved  in  the 

relationshio 

i n 

individual 

detail,  mioht  not 

be  totally  aooroor iate  as 

fat 

as  solution  is  concerned  for  some  cases,  a mechanism  is 
oiovided  which  allow  the  user  to  override  the  cycles 
analysis  qiouoinq  for  the  qeneration  of  a solution  oi ocess 
(refer  to  chaoter  3 section  3.4.2).  Also  section  5.4  at  the 
end  of  this  chanter  oresent  the  conclusions  of  research  done 
in  this  tooic  toqether  with  otovidinn  an  account  of 
alqorithms  used  to  extend  structural  analysis  to  include 
further  levels  of  oartition  (semi-decomoosition)  in 
comoletely  indecomoosable  systems,  as  well  as  for  otdetinq 
inside  a simultaneous  system.  However  for  outooses  of 
mananement  of  an  information  system  as  well  as  to  allow  the 
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automatic  generation  of  programs  with  properties  of  sharing 
and  inct ementa 1 itv , MODEL  provides  the  necessary  framework 
and  basic  mechanisms  in  which  other  algorithms  based  on 
symbolic  algebraic  analysis  (variable  substitution)  (SOY  71] 
as  well  as  numerical  analysis  (ex.  sensitivity  analysis) 
could  be  added  to  extend  the  apolication  universe  as  well  as 
for  completeness. 

tfhile  the  algorithm  proposed  in  this  section  illustrate 
the  concepts  involved  in  both  identifying  cycles  as  well  as 
groups  of  simultaneous  assertions,  it  is  not  an  efficient  \ 

algorithm  nor  does  it  takes  into  consideration  the 
particular  representation  of  relationships  between  all  the  < 

elements  in  MODEL  language.  For  instance,  the  precedence 
matiix  in  MODEL  is  qiven  as  a list  structure  in  order  to 

j 

save  both  space  and  search  time.  Also  the  cycles  analysis 

will  only  identify  qroups  with  "two-way"  relationships  and 

will  giouo  them  together  to  form  an  acyclical  directed  graph 

representation.  The  hierarchical  ordering  is  done  in  a 

later  stage  bv  the  "sequencing"  analysis  phase,  which 

besides  of  a topological  ordering  of  the  statements  foi 

Piopet  execution,  performs  an  iteration  analysis  by  grouoina 

and  determining  the  "scopes"  of  all  elements  usinq  j 

subscripts  which  need  to  be  iterated.  i 


i 
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5.1.2  Gtaoh  Tfieoiy  dackqtound 

A diiocted  qraoh  G=(V,E),  consisting  of  a set  of 
veitices  V and  a sot  of  edqes  E , is  said  to  be  STROMGLY 
CONNECTED  if  there  is  at  least  one  directed  nath  from  evetv 
veitex  to  evetv  other  veitex.  A oath  o:v==>w  in  G is  a 
sequence  of  veitices  and  edo«s  leadino  from  node  v to  node  w 
(v  and  w in  V)  . 

y y. 

S C(G)  < = = > { 3o(  | oj  : v = = >v  t o2:w  = = >v,  (v,w)eV| 

A dioranh  G is  said  to  be  WEAKLY  CONNECTED  if  its 
cot resoondina  undirected  qtaoh  is  connected  but  G is  not 
stLonaly  connected. 

An  equivalence  relation  R can  be  defined  on  the  set  of 
vertices  as  follows: 

vRw  <==>  {3n | o : v==>v  and  w 6 o } 

Let  the  distinct  equivalence  classes  undet  this  telation 
be  Vi  (l^i^n)  and  let  Gi=(Vi,Ei)  whete  Fi= { ( v , w)£ E I v , Vi } 
then  it  can  be  shown  that 

i)  Each  Gi  is  stronqly  connected  and 

ii)  No  Gi  is  a otooer  subqraoh  of  a stronqly 
connected  subqraoh  of  G. 


r 


Each  maxima  1 connected  (weakly  or  stionqly)  subqraph  of 
a diqtaph  G is  called  a COMPONENT  of  G.  Within  each 
component  of  G the  maximal  stionolv  connected  subqraohs  Gi 

aie  called  the  stionqly  connected  COMPONENTS  oi  FRAGMENTS  of 

c 

vj  • 

Fol  examole  in  Figure  5.2  the  qLaph  shows  the  fragment 
F ={3, 4, 5,5} 


1 


Figure  5.2 

Graph  G with  Fragment  F 

The  CONDENSATION  Gc  of  a diqvaoh  G is  a digraph  in  which 
each  stionqly  connected  fragment  is  replaced  hy  a vertex, 
and  all  directed  edaes  fiom  or  to  such  fraament  from  other 


elements  of  the 


> 
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comoonent  ate  replaced  by  a sinqle  directed 


edqe . 


Fiqute  5.3  shows  the  condensation  of  the  qiaoh  in 
Fiqute  5.2 


F i a u t e 5.3 

Condensation  of  Graph  G in  Fiaure  5.2 

Clearly  the  condensation  of  a diqtaoh  has  no  direct 
circuits. 

The  problem  of  findinq  the  stronqly  connected  components 

of  a dintaph  is  related  to  the  Problem  of  identification  of 

"compound  cycles"  in  the  MODEL  otocessot  [ PRY  77a!  , since 
these  compound  cycles  mav  represent  orooer  simultaneous 

assertions  for  which  a solution  can  be  found  usinq 

appropriate  numerical  methods. 

There  are  some  instances  in  which  the  enumeration  of 


! 
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every  single  circuit  or  cycle  could  move  of  some  advantage. 
For  example  in  section  5.4  of  this  chapter  some  algorithms 
are  proposed  in  order  to  "teat"  or  "semi-decompose"  large 
systems  of  eouations  based  on  ocuttences  of  individual 
cycles  inside  a strongly  connected  fragment.  This  type  of 
procedure  could  be  used  for  more  efficient  handling  and 
management  of  complex  svstems. 

Several  algorithms  ate  given  in  the  literature  to  find 
all  elementary  circuits  of  a digraph  [DEO  76] . In 
particular  Rin  [RIM  76]  uses  one  by  Rersztiss  (HER  71]  in 
his  implementation  of  MODEL.  A more  efficient  algorithm 
which  can  be  readily  adapted  to  the  Present  implementation 
using  a list  structure  representation  for  the  adjacency 
matrix  is  found  in  Johnson  (JOH  75],  However,  in  general, 
the  enumeration  of  all  elementary  circuits  can  become  very 
time  consuming  and  will  not  normally  provide  much 
interesting  information.  For  this  reason  the  search  for 
strongly  connected  fragments  is  preferred  as  the  standard 
cycle  analysis  algorithm.  Further,  if  in  future 
implementations  an  algorithm  for  elementary  cycles  is 
needed,  it  will  be  more  efficient  to  start  the  search  from 
the  already  identified  individual  fragments. 
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5.1.3  Algorithms  for  Graph  Manipulation 

Four  classes  of  alqorithms  foi  the  enumeration  of  all 
circuits  of  a qraph  are  qenetally  described  in  the 
literature  [DEO  76].  These  are: 

i)  circuit  vector  space  for  undirected  qraohs; 

ii)  search  algorithms; 

iii)  powers  of  adjacency  matrix;  and 

iv)  edqe-diqraDh. 

For  the  identification  of  stronqly  connected  components 
of  a graph  however,  only  alqorithms  in  classes  ii)  and  iii) 
ate  considered,  both  because  of  efficiency  reasons  as  well 
as  because  the  ease  of  imolementat ion  in  the  existinq 
structure  of  the  MODEL  processor. 

A descriotion  of  an  alqorithm  using  cowers  of  the 
adjacency  matrix  was  already  given  in  section  5. 1.1. 2.  The 
first  step  consists  in  usinq  Marshall's  alqorithm  to 
generate  the  path  or  teachability  matrix  from  the  given 
adjacency  structure.  Warfield  [WAR  73,74]  aives  an 
excellent  survey  on  the  use  of  binary  matrices  in  system 
modelinq  and  describes  the  algorithm  in  which  every  element 
in  the  matrix  is  associated  with  two  sets:  a "reachability” 
set  and  the  "antecedent"  set.  It  is  then  shown  that  the 
intersection  (set  oroduct)  of  these  two  sets  identifies  the 
elements  of  the  partition  or  equivalent  class.  A similar 
alqorithm  is  given  in  [GAN  76a]  which  takes  advantage  of  a 
"two-tailed"  reduction  procedure  applied  recursively  to  the 


V*  v 

i ' V taZcd4'  t Mbit  _ 
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path  matrix  before  identifyina  the  strongly  connected 
elements  at  each  level  using  the  piODerties  of 
" t ef lex i vi ty  " , "symmetry"  and  "transitivity"  of  equivalence 
i elat ions . 

No  matter  how  qood  a matrix  representation  of  a graph 
can  be  for  either  formal  analytical  or  expository  purposes, 
its  main  drawback  lies  in  the  order  of  complexity  of  all 
alqotithms  associated  with  this  representation.  The  time 
and  space  bounds  associated  with  this  algorithms  is  at  least 
CUn1),  and  for  oui  application  will  ao  up  to  0(n3)  or  0{n*) 
at  the  best.  Many  authors  have  found  alqotithms  which  are 
prooortional  to  the  number  of  vertices  and  edqes  of  the 
qraDh.  The  core  of  these  alqotithms  is  to  use  a list 
structured  representation  of  the  qraoh*  and  some  type  of 
search  technique  in  an  appropriate  search  space. 

Backtracking  or  deoth-f irst-search  (DFS)  is  a widely 
known  technique  used  in  Problem  solvinq  and  artificial 
intelliqence  [NIL  711.  The  Process  begins  by  choosinq  any 
starting  vertex  of  G and  traverse  it  by  always  selectinq  an 
edge  emanatinq  from  the  vertex  most  recently  selected  which 
still  have  not  used  edqes  in  its  adiacency  list. 


* The  structural  representation  of  a qraoh  G=(V,E)  qiven  as 
an  adjacency  list  of  vertices  requites  an  adiacency  list 
Ag ( v ) for  each  vgV. 

Then 


U £ Ao ( V ) < = = > ( V , U ) £ E 
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The  process  is  easy  to  program  recursively  if  a stack  is 
used  to  keep  track  of  the  vertices  with  Possible  not-used 
edges  emanating  from  it. 

Next  section  describes  the  actual  implementation  of  a 
recursive  Deoth-First-Search  algorithm  to  find  all  fragments 
of  the  digraph  structure  representing  MODEL  statements. 


5.2  Identification  of  Strongly  Connected  Components  in  MODEL 
5.2.1  Structure  of  the  Precedence  List 


The  precedence 
is  the  number  of 
specifications, 
matrix  indicates 
dictionary  entry  i 
be  put  into  one  of 


matrix  in  model  is  of  size 
dictionary  entries  used  i 
Any  element  P(i,j)>0  in  th 
a relationship  between 
and  succesor  dictionary  entr 
the  following  three  classes 


n 

e 

v 

f 


nxn,  where  n 
the  MODEL 
or ecedence 
predecessor 
1 which  can 
SHA  7 B 1 : 


i)  Hierarchical  relationship  - a relation 
between  a data  name  and  its  descendants  (or 
its  parents). 

ii)  Value  dependency  relationship  - a relation 
between  a data  name  and  an  assertion  name. 

iii)  Pointing  relationship  - a relation  between  an 
EXIST,  LENGTH  or  POINTER  name  and  a data 
name. 


Strongly  connected  components  representing  assertions  to 
be  solved  simultaneously  can  occur  only  between  elements 
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with  piecedence  types  in  class  ii)  above.  The  description 
of  each  piecedence  tyoe  is  given  below: 


Type  1 : 


Type  2: 


Type  3: 


Type  4 : 


Type  5: 


Type  6 : 


Type  7: 


Type  8 : 


Indicates  a hietarchical  relationship  between  the 
source  data  names  and  its  descendants. 

Representing  also  a hierarchical  relationshio; 
between  the  taiqet  data  names  and  their  oarent 
nodes. 

A value  deoendency  relationshio  between  the  source 
variables  of  an  assertion  and  the  assertion  itself. 
Also  a value  dependency  relationship;  between  an 
assertion  and  tarqet  variables  used  in  that 
assertion. 

Indicating  a oointinq  relationshio  between  a 
"length  name",  L,  and  a data  name  whose  length  is 
given  by  L. 

Also  a pointinq  relationshio;  between  an  "exist 
name",  E,  and  a data  name  whose  size  deoends  on  E. 
A pointinq  relationshio  between  a "pointer  name", 
P,  and  a reoeatinq  data  name  whose  instance  is 
determined  by  P. 

A hierarchical  relationship  between  entries  for 
different  SubscriDted  variable  representations. 


Fiqure  5.4  below  gives  as  example  the  qraohic 
representation  for  the  assertions: 


ASN1 : C * - 6.8  + .67  * GNP  ; 

ASN2:  GNP  * C + I + G ; 
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F i n u t e 5.4 

Directed  Gt  aDh  Reoresent  ation 
for  Two  Assertions  in  MODEL 

The  assertion  nodes  ate  deoicted  by  sauaie  boxes  while 
the  'lata  names  nodes  aie  represented  bv  circles.  Notice 
that  a cycle  (stronnly  connected  oi  maximal)  is  defined  by 
this  two  assertions  since  the  tatnot  (endogenous)  variable 
of  one  assertion  is  used  as  souice  variable  for  the  other 
and  vice-versa,  a characteristic  of  every  simultaneous 
equation  system.  The  enuivalent  otecedence  matrix 
representation  is  qivcn  in  Table-5.7 


I  C GNP 
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I 


G 


ASN1  ASN2 


I 

i 


Cl 

0 

0 

0 

0 

0 

3 

GNPl 

0 

0 

0 

0 

3 

n 

I 1 

0 

0 

0 

0 

0 

3 

G | 

0 

0 

0 

0 

0 

3 

ASN  1 | 

4 

0 

0 

0 

0 

0 

ASN2  1 

0 

4 

0 

n 

0 

0 

Table- 

5.7 

Precedence  Matrix  foi  Graph  in  Flame  5.4 

Recause  of  the  complexity  of  seaichinq  algorithms  that 
use  a matrix  r epresentat ion , and  also  since  the  precedence 
matrix  is  a sparse  one,  to  conseive  snace  the  matrix  is  not 
keot  as  an  array,  but  lather  as  n lists,  con esoondinq  to 
the  n dictionary  entries.  The  ith  precedence  list  contain 
all  non-zero  entries  for  the  ith  row  and  ith  column  of  the 
equivalent  precedence  matrix.  The  lists  can  he  described  by 
the  followinq  PL/1  structure: 

DCL  1 ADJM  ENTRY  PARED  (ADJMP) , 

2  ALLOC  RIN  FIXED, 

2 FUSED  RIN  FIXED, 

2 CUSED  RIN  FIXED, 

2 ENTRIES  (N  REFER  (ALLOC)), 

3  COL  RIN  FIXED , 

3 CVALUE  RIN  FIXED, 

3 ROW  RIN  FIXED, 

3 RVALUE  BIN  FIXED? 


i 


i 


i 
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which  couesnoni  to  toe  followinq  oictoiial  structure: 


I ALLOC  I RUSED ICUSEDl  I COL  (1)  ICVALUE  (1)1  ROW  ( 1 ) | RVAL'JE  ( 1 ) I - - 


- - -I  | COL ( ALLOC ) ICVALUE (ALLOC)  I POW(ALIOC)  I RVALUE (ALLOC)  | I 


whet  e 

ALLOC  qives  the  size  of  the  list.  It  is  equal  to  the 
maximum  number  of  columns  oi  lows  with  non-zeio 
entries  foL  the  oarticular  list. 

ALLOC  >=  VAX  (CUBED,  RUSED) 

RUSED  is  the  number  of  non-zeto  entries  in  the  row  foi  the 
dictionary  element. 

CUSEO  qives  the  number  of  non-zeLO  entiies  in  the  column  foi 
the  dictionary  entLy. 

COL(I)  (1=1  to  RUSED)  qives  the  column  numbei  for  the 
non-zem  entiies  under  the  dictionary  name  row. 

CVALUE(I)  (1=1  TD  RUSED)  is  the  actual  orecedence  tyoe 
coi l esnond i nq  to  COL(I)  for  the  dictionary  element 
undei  consideration. 

ROW ( I ) and  RVALUE (I)  (1=1  TO  CUSED)  similarly  oives  the  row 

numbers  and  contents  cor respond inq  to  the  non-zero 
matrix  entries  foL  the  qiven  dictionary  element 


column 
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For  instance  the  list  coi resoondino  to  the  dictionaiy 
entiy  ASN2  with  oiece^ence  matrix  entiies  P(l,6)=3, 
P(3,6)=3,  P(4,6)=3  and  P(6,2)=4,  will  look  as  follows: 


I 3 I 1 1 3 | |2|4|  1 | 3|  — | — | 3| 31  — I — |4|  3|  | 


The  function  ACRDR4(I)  returns  a oointer  to  the 

precedence  matrix  list,  AOJ'lP,  for  the  Ith  dictionaiy  entry. 

5.2.2  Dictionary  for  the  Piecedence  Lists 

In  ordei  to  access  the  lists  that  contains  the 
"piecedence  matrix  entiies"  for  each  data  name  or  assertion 
name  supplied  by  the  usei  , a dictionary  is  deated  with  the 
following  format: 

I + + + + , 

I STFPTR | SU3-PTR I SUB# | NEXT- INDEX | ADJMPTRl 

| + + + + | 

where 

STEPTR  is  the  stoiaqe  entry  oointei  of  the  data  name 
represented  by  this  dictionary  entiy; 

SUB-PTR  is  a pointei  to  the  subscriot  list,  associated  with 
that  data  name; 

SU3#  is  the  dimensionality  of  the  subscript  aiven  by 
SUB-PTR ; 

NEXT-INDEX  is  the  next  dictionary  index  of  the  same  data 
name,  but  with  different  dimensionality  and  subscript; 
f ina 1 lv 
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ADJMPTR  is  the  oointer  to  the  Dtecedence  list  for  the 
dictionary  entry. 

A data  name  can  have  mote  than  one  dictionary  entty  in 
the  following  cases: 

(1)  The  data  name  is  a descendant  of  an  uodato  file; 
or 

(2)  The  data  name  is  an  arrav.  In  this  lattei  case, 
each  use  of  the  data  name  with  different  subscript  has 
an  entry  in  the  dictionary. 

An  assertion  name  has  only  one  enttv  in  the  dictionary. 


5.2.3  Algorithm  STRGCO‘1 


The  followinq  is  an  adaptation  of  a well  known  an 
efficient  ’.eat  DFS  algorithm  by  Tatian  [TAR  72]: 


Whenever  a DFS  is  oet  formed  on  a qraoh  G(V,F), 
the  edges  generated  while  traversing  fall  into 
four  classes: 

i)  Those  which  lead  to  a new  vertex  and  hence 
form  a tree. 

ii)  Those  running  from  ancestors  to  descendants 
in  the  tree.  These  can  be  ignored  since  thev 
do  not  affect  the  strongly  connected  comoonents 
of  G. 

iii)  Those  tunning  from  descendants  to 
ancestors  in  the  tree.  These  are  called 
FRONDS . 

iv)  Finally  those  from  one  subtree  to  another 
in  the  tree.  These  are  called  CROSS-LINKS. 

If  the  vertices  of  G are  numbered  according  to 
the  traversing  order  , then 
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CROSS-LINK ( v , w)  ===>  NUMBER ( v ) > NUMRFR(w) 

A DFS  will  create  a set  of  tiees  containing  all 
the  vertices  of  G,  called  th^  "spanning  forest"  of 
G,  and  sets  of  fronds  or  cross-links  (other  edqes 
ate  not  needed).  A directed  qranh  consistinq  of  a 
spanninq  forest  and  sets  of  fronds  and  cross-links 
is  called  a JUNGLE. 

If  the  vertices  ate  numbered  in  the  order  they 
ate  reached  durinq  the  search,  and  aie  refer  led  bv 
their  number,  then  we  have  the  followinq  LEMMA. 

Let  {v,w}gV  and  also  p,  :v  = = >w  and  oa:w  = = >v 
(that  is  v ^ w belonq  to  the  same  stronoly 
connected  comoonent). 

Let  F be  a spanninq  forest  oeneLated  by 
repeated  DFS  of  G.  Then  v J,  w have  a common 
ancestor  in  F.  Further  if  u is  the  hiqhest 
numbered  common  ancestor  of  v w,  then 

13o  I o,  : u = = >v  s,  Pa  :v=  = >u  } 

that  is  u is  in  the  same  stronnly 
connected  comoonent  as  v and  w. 

Proof:  without  loss  of  qeneiality  assume  v 
<=  w.  Let  nrv^Ow  be  a oath  in  G.  Let  'Tu  ' 
with  root  'u  ' be  the  smallest  subtree  of  a 
tree  in  F containinq  all  the  vertices  in  o. 
Such  tree  exists,  since  o can  oass  from  one 
tree  in  F to  anothei  tree  with  smaller 
numbered  vertices  but  o can  never  lead  to  a 
tree  with  la  refer  number  vertices.  If  p were 
contained  in  two  or  more  trees  of  F,  it 
could  not  end  at  w,  since  v <=  w.  Thus  'Tu  ’ 
exists  and  v and  w have  a common  ancestor  in 
F.  ,The  rest  of  the  lemma  is  immediate  if 
either  u=v  or  u=w.  Otherwise  let  'Tul  ' and 
'Tu2'  be  two  distinct  subtrees  containinq 
points  of  p such  that 

u==>ul  and 
u = = > u 2 


If  only  one  such  subtil  exists  then  u d 
since  'Tu ' is  minimal.  Otherwise  p can  pet 
from  ul  to  u2  only  oassinq  throuqh  vertex  u, 
since  u is  the  hiqhest  numbered  common 
ancestor  to  both.  Hence  the  lemma  holds. 

Coi oil a r y : Let  C be  a stronolv  connected 
comoonent  in  G.  Then  the  vertices  of  C 


2 2 4 


define  a subtree  of  a tree  in  F,  the 
SDanninq  forest  of  C.  The  toot  of  the 
subtree  is  called  the  toot  of  the  stronqly 
connected  comoonent  C. 

The  problem  of  findinq  the  stionqlv  connected 
components  of  a orach  (1  thus  reduces  to  findinn 
the  roots  of  the  stionoly  connected  components. 

The  followinq  procedure  will  detetmin'-*  if  a 
vertex  is  the  root  of  a stronqlv  connected 
component.  Let  aqain  v==> w denote  a tree  edqe  and 
let  v > denote  a frond  or  cross-link,  then 

LOWLINK  ( v)  =min  ( { v } o(w|v  = = > >w  f,3u  (u==>v  *.  u = = >w 

Si  u and  w ate  in  the  same  stronq  connected 

comoonent  of  G) } ) 

That  is  LOWLINK (v)  is  the  smallest  vertex  which 
is  in  the  same  component  as  v and  is  reachable  bv 
traversing  zero  or  more  tree  arcs  followed  by  at 
most  one  frond  or  cross-link. 

then 


V^  ROOT ( C ) < = = > LOWLINK (v)=v 

Proof:  if  v is  the  root  of  a stromlv  connected 
component  then  LOWLINK (v)=v  by  definition. 
Conversely  assume  u is  the  root  of  C,  and  v is  a 
vertex  different  than  u,  there  must  be  a oath 
n:v==>u,  consider  the  first  edqe  of  this  orach 
which  leads  to  a vertex  w not  in  'Tv',  a subtree, 
this  must  be  either  a fronl  or  cross-link  and 
therefore  LOWLINK (v) <=w<v,  since  the  niqhest 
numbered  common  ancestor  of  v and  w is  in  C. 

Tatj  an*  s algorithm  is  0(V,E)  when  -riven  the  orach 
structure  as  an  adjacency  list.  The  flowchart  in  Fiquie  5.r> 
illustrate  the  basic  staqes  of  the  alqorithm.  Appendix  3 
presents  the  complete  PL/1  source  listino  of  the  Cycles 
processor  as  implemented  in  MODEL. 


( 
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The  following  PL/l  program  implements  Tarjan*s  algorithm 


/•  Gana  593 1 Il/12/7/  PL  1C-VER-12C876 


STM  I LEVEL  NE  ST 
1 


2 

3 

4 

5 

6 
7 


€ 1 

9 1 

10  1 1 

II  1 2 

1?  1 2 

13  I 1 

14  1 

15  1 


16 


2 


/•  GAN*  5 V ’ 6 1G/12/77  PL IC-Vf fc-120876 

CTCLfS:  PuCCfbUhf  (N  ); 

/•*AIN  MONITOR  fu»  Thf  'CYCLES  ANALYSIS'  PROCC  SSCR  • 
IMtiAlWIS  V AA  t A:«ir  S (ALLOCA  If  $ SfACf  AND  CALLS 
PLCCiCcRt  'SIRcCUN';  A RECURSIVE  DEPTH  flRST  SEARCH 
ALlPhIIM.n  If:  flNO  STRONGLY  CONNECTED  CCMfONfNTS 
of  a graph.*/ 

/ • *»  € # : 'bfPTR  FIRST  SfAPlM  AND  LIMAS  GRAPH  ALGORITHMS' 
uT  RtCiRI  IAMJAN 

PUOLlShfO  IN  SIAP  VTLIi  N0.2,  JLNI19/?.*/ 

/•THE  ORAPH  MffPESlWlNG  » l L A T I ON  SH  I P S HtTWEEN  OATA 

/.APIS  IS  GIVEN  Pt  A*  adjacency  list  structure  'adj'. 

THE  jTkOnCL  Y CONNECTED  COPPPMNTS  RfPRlSfNT  IIIH£R 
ClRClLAA  DEFINITION'  OR  SETS  Of  S I HUl T A N l OUS  ASSERTIONS 
10  rt  OPOUPFO  EAR  SOLOMON  rf  THE  STSILH.*/ 

/ • 'A ' IS  Tut  NO* Of  A Of  Vt«11IfS  01  THE  GRAPH  WHICH 
LORRISPONDS  TP  THE  MJPfcfR  Of  DICTIONARY  ENTRIES  IN 
1 H i CONTEXT  Of  * 0 t I L SYSTEM.*/ 

uCl  (Lowe  lf.r  ( A ) , HUMP  (N  ) , STACa  Cn  ) ) b IN  FIXED  EXT  CTl  ; 

0 Cl  <V,I,PTR)  GIN  FIXED  lit  ; 

ccl  onstaca(n)  pit(1)  txi  ctl  ; 

ALLOCATE  LCWL  ISA  (NuPb  ,S IACK (ONS TACK  ; 

STACA.lOwLINK  ,numb  =G; 

1 , P tr  * C ; 

GNSIACa*'0'B; 

LO  V* 1 TO  N ; 

do  while  (nuhp(v>*o>  ; 

call  STPGCCN  (v,n)  ; 

END  ; 

LAD  ; 

ERIE  LGVL INK, NU-B, STAC*  .ONSTACK  ; 

SIRGCON  : P*OCfuU«£  <V,N)  RECURSIVE  ; 

/•  P».0CEDURf  FINDS  <IRoNGLY  CONNECTED  COMPONENTS 

OR  AGMfNTS  ) Of  A G*>APH  USJNO  A OfPTH-f  I RS  f-SEARCW 
• k T *i  0 0 IN  A RECURSIVE  SCHEMA. THE  PARAMETERS  ARE 
DESLPIPtD  AS  f 01  LOW  S : 

'V'  IS  A VFRIE*  Of  THE  GRAPH 
'n'  IS  THE  TOTAL  NUMBER  0E  VERTICES  IN  1HE 
graph.  •/ 

/•  the  pointer  to  the  adjacency  list  structure  'adj' 

IS  Given  ft  function  'acrdra'.  the  structure  'adj' 

c’vfS  THE  PICTtfE  of  THE  INCIDENT  NODES  AN  b ADJACENT 
NODES  Of  THE  CURRENT  VERTEX.*/ 

0 CL  1 ADJ  U A » E D (X)  , 

a ALLOC  GIN  f I X E 0 • 

c MUSED  BIN  EJXfO,  /*  USED  ROWS  •/ 
t CUSfD  BIN  MXfD  ( / • U S t D COLOUMHS  */ 

& LNTR1FS  ( N RffER  (ALLOC))* 

3 COL  BIN  FIXED,  /•  COIOUMN  « •/ 

/*  SUCCESSOR  COIOUMN  •/ 

3 (VALUE  BIN  FIXED,  /•  COLCUMN  VALUE  •/ 

3 RUW  H1N  FIXED  , /•  ROh  » •/ 


OOGAUCGO 
GOOSUCOO 
00C60CC0 
Gr  C 7CCG0 
CCCFOfOO 
GCG9GCOO 
UOIOOGCO 
GC11CC00 
GC12GC00 
GC130C00 
GOUOGOO 
GG150C0O 
GC160C00 
GC17GC00 
ueuoroo 

G0190CG0 
0C200C00 
G021GCQ0 
G022GCC0 
OC230COO 
GO  2 40CG0 
0C250C00 
GO  260CQ0 
GC270CU0 
GC2EGCOO 
U0290C00 
UO 300000 
GCJTOCCO 
G0320CG0 
00330CC0 
UO  J40000 
GC350C00 
GG3CGCOO 
GC370C00 
GCiforoo 
CO J90CQ0 
GC4CCCOO 
GC41GC00 
GC420CC0 
CC430CG0 
GC  440000 
00450000 
GC  460000 
00470CC0 
GC4GGCQ0 
00490000 
G05G0C00 
(C510C0O 
C0520000 
00530CC0 
00540000 
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/•  CARA 

ST"!  LEVEL  NEST 

17  2 
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•/ 


25 

2A 

27 

28 

29 

30 

31 
3? 
33 

36 

37 

39 

40 

41 


/•  PREDECESSOR  ROM  *>/ 

3 RVALUE  6 1 N rilED  ; /«  HOW  VALUE  •/ 

ACkORA  ENTRY  (U  IN  MlED) 

•ETURfcS  (POINTER)  ; 

/•  OEflUlT ions: 

*L0VL1NK(V)~  or  A VERTEX  V IS  THE  SMALLEST  VERTEX 
WHICH  IS  IN  THE  SAXE  COMPONENT  AS  V AND  IS  REACHABLE 
6 T TRAVERSING  ZEkC  OR  MORE  TREE  ARCS  ECLLOWED  BT  AT 
POST  OH E *IRQND*  C8  * C R OS S -L 1 HX * (AM  ARC  TO  A VERTEX 
ALREADY  REACHED). 


/• 


'V'  IS  THE  ROOT  Of  A COMPONENT  Iff  LCWLINK(V)-V  */ 
THE  rOLLOWIAL  ARRAYS  ARE  MAINTAINED  IN  THIS 
PROCEDURE  TOR  THE  REASONS  MENTIONED  bi LOU  t 


L 0 M L 1 N X 


NLM8 
S 1 A 


TO  KEEP  TRACK  OE  L0ML1HK  VALUES  Of 
EACH  VERTEX 

TO  NUMbER  EACH  VERTEX  AS  IT  IS  TRACED 
TC  PUSH  THE  VERTICES  ALREADY  TRACED  OH 
A STACK 

C K 


/• 

ONSTACK  : TO  VERITY  A VERTEX  IS  PUSHED  ON  5 T A 

PTR  IS  A POINTER  USED  TO  KEEP  TRACK  OE  ELEMENTS 

/• 

IN  S T A C K «/ 

*CGMP*  IS  A STRUCTURE  USED  TO  KEEP  THE  ELEMENTS 

It  2 

DCL 

UNI C H ARE  STRCNGLY-CONNECTtD  AS  A LINKED  LIST  • / 
<LO»LIhK(N)fNUMd(N>tSTACK(N))  DIN  UXED  EXT  CTL 

19  2 

DCL 

R Pit; 

20  2 

DCL 

V DIN  PIXED  ; 

21  2 

DCL 

(J*U)  BIN  riYID; 

22  2 

DCL 

onstack(n)  alien  ext  ctl  ; 

23  2 

DCL 

(P  Tk  v I ) DIN  PIXED  EXT  ; 

26  2 

DCL 

1 COMP  fcASEDCP), 

2 INDEX  PIN  rilElf 
2 LINK  PTR  * 

2 KEY  CHAR<2>9 
2 ST*! _9 ITS  B IT (7); 

DCL  (P  « r IRS  T *L  AST  ) PTR; 

DCL  CMP  COD  E PIN  UIED  EXT; 

X»ACRDRA(V)  ; 

LOWL  INK  (V)  .HUMP(V)  , . 

/*  PUT  V OH  STACK  Of  POINTS  •/ 

CALL  ADD  (VaSTACKtPTR); 

On  stack (v)  ■ *1*0; 

IMX*NULL>  THEN  CO  TO  NOADi; 

IMRUSEO>0)  THEN  CO  TO  NOADi; 

DO  J»1  TO  RUSEf; 

W* ENTRIES (J).COL  ; 

If  (yO)  THEN  CO  TP  SAN  ; 

/•  w IS  IN  THE  ADJACENCY  LIST  CP  V •/ 

If  (MU*B(«)*C)  /•  (V,M)  IS  A TREE  ARC  • / 
THEN  DO  ; 

CALL  STRGCON  CwtN)  ; 


- * 

i i 


00350000 
QOS6QCOO 
QG  3 70COO 

aosbocoo 

00  33QCQO 
00600000 
0061QG09 
C062CC00 
OOtJOCOO 
UC640C0O 
Q0630COO 
00660000 
G067QCOO 
C06IOCOO 
00630000 
C07COCOO 

00210000 

G0720000 
00730000 
C076CC00 
00790000 
QC76QCQ0 
00770000 
00  760000 
00730000 

oetcocoo 
ooatocoo 
00620000 
00630000 
00660000 
00630000 
OC660COO 
QC670COO 
0C66CC00 
00630000 
00900000 
00910000 
0092CC00 
00930000 
00360000 
00390C00 
0C36CP00 
00970000 
GO  360000 
00990000 
0100CC00 
OICIOCOO 
01020000 
01030000 
01060000 
01090000 
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L 


L 


i 

i. 

L 

L 

l 

c 

V 

l 

l 

L 

{ 

(. 

I 

V. 


/• 

SAM 

1039  10/07/77  PL1C-VER-120876  • / 

;tnt 

LEVEL 

ME  SI 

42 

2 

2 

LC«LINK(V)MlN(L0ULINK(V).LOiaiNK(H))  ; 

43 

2 

2 

EN6  ; 

44 

2 

1 

ELSE  IF  ( (NUMB  (VXNUMb  (V))60NSTACK(W)) 

/«  (V,U)  IS  A FROND  OR  CROSS  LINK  • / 

45 

2 

1 

IHEN  LOWLlNK(V)BMlN(LONLlNK(V)fNUMB(W))  ; 

46 

2 

1 

SAN:  END  ; 

47 

2 

NCADJ:  IF  <L0WL1NK(V)BNUMB(V>> 

48 

2 

THEN  DO; 

49 

2 

1 

F IRST-NULL; 

/•  V IS  THE  ROOT  OF  THE  COHPONENT  •/ 

/•  START  A NEW  STRONSL V CONNECTED  COMPONENT 

50 

2 

1 

DO  WHILE  <NUHMSTACK<PTA»>=NUMB<V)l(P1R>0>> 
/•DELETE  THE  POINT  FROM  TOP  OF  STACK  AND  PUT 
IT  IN  THE  CURRENT  COMPONENT  • / 

51 

2 

2 

onstack(stack(ptr))**Q'd; 

52 

2 

2 

ALLOCATE  COMP; 

53 

2 

2 

IF  first*null  then  first*p; 

55 

2 

2 

ELSE  L AST->LINK*P; 

56 

2 

2 

P->!NDEI*STACK(PTR>; 

57 

2 

2 

P->L INK*NULL; 

58 

2 

2 

LAST  «P; 

59 

2 

2 

CALL  DELETE  (STACK  tPTR) | 

60 

2 

2 

END; 

61 

2 

1 

IF  (FIRST->LINK"*NULL1  THEN  90  ; 

63 

2 

2 

CALL  ANALCMp(FIRST>; 

64 

2 

2 

CALL  PR  COMP  (FIRST); 

69 

2 

2 

IF  C HP  CODE  - 0 THEN  CALL  HRSE A S $ ( F I AS T > ; 

67 

2 

2 

END; 

68 

2 

1 

DO  WHILE  ( F I AS T"*NULO ; 

69 

2 

2 

P*F 1RST; 

70 

2 

2 

FJRST-P>>LINK; 

71 

2 

2 

FREE  P->CONP; 

72 

2 

2 

END; 

73 

2 

1 

END; 

/•  INTERNAL  SUBROUTINES  •/ 

74 

2 

ADD:  PROCEDURE  (V .STACK *PTi 1 ; 

73 

3 

DCL  (V.S1ACK(*>  ,PTR)  FIXED  DIM  ; 

76 

3 

PTR  *PTR«1; 

77 

3 

STACK  (PTi  ) *V; 

78 

3 

END  ADD; 

79 

2 

DELETE:  PROCEDURE  (STACK.PTR); 

80 

3 

DCL  (STACK (• 1 tPTR 1 FIXED  DIM  % 

81 

3 

STACK (PTR>  *0; 

82 

3 

PTR  ■ PTi-f; 

83 

3 

END  DELETE; 

01060000 
01070C00 
01 C80C00 
01C90C00 
OIIOOCOO 
01110C00 
01120C00 
01150000 

oiuoooo 

01150000 
01160C00 
01  I70C00 
01180C00 
0 1 19GC0G 
01 200C0O 
Of  2 10000 
0 1 220C00 
01230000 
01240C00 
01250000 
01260C00 
0127CC0 0 
01280000 
01290C00 
0 1 300C00 
01310000 
01 320COO 
01330C00 
0134C000 
01350000 
01360000 
01370000 
0 1 380C00 
01390000 
01400000 
01410000 
01420000 
01430000 
01440000 
01450000 
OUSOCOO 
0147CC90 
01480000 
01490000 
01500000 
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Notice  that  the  Dr'S  alqorithm  is  applied  for  any 
non-zero  oreceience  tvpe,  that  is:  to  the  equivalent  binary 
representation  of  the  adjacency  list.  The  stronqlv 
connected  elements  found  by  5TRGC0N  are  kept  as  a linked 
list  for  further  analysis  bv  Procedure  ANALC;-'P.  The  format  of 
this  linked  list  is  as  follows: 


where 

INDEX  is  the  dictionary  index  for  the  component. 

LINK  is  a pointer  to  the  next  component  in  the  list. 

KEY  is  filled  by  the  procedure  ANALCMP  and  identifies  the 
tyoe  of  element  (i.e.,  assertion  name  or  variable 
name ) . 

STATUS-BITS  ate  used  to  further  identify  the  element  in  case 
it  is  a variable.  That  is  if  it  is  resolved  as  source 
variable,  target  variable  or  interim  variable. 

Procedure  ANALCflP  is  passed  a Pointer  to  this  list  of 
strongly  connected  components,  and  proceeds  to  check  that: 

i)  Elements  of  stronqlv  connected 

components  are  related  by  precedence  tyoes  3 
and  4 only  (relationships  between  data  names 
and  assertions).  If  this  is  not  the  case, 
an  error  messane  is  qiven  to  the  user. 
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ii)  Assertions  must  be  properly  normalized. 
This  is  to  assume  that  a variable  does  not 
appears  both  as  target  and  source  variable 
of  the  same  assertion  (ex.  A=A+1). 


iii)Finally  some  other  trivial  recursive 
patterns  which  ate  known  not  to  have  a 
solution  are  also  reported  as  errors  (ex. 
the  followinq  set  of  three  assertions  form  a 
loop  without  solution:  A=B ; B=C;  C=A) . 


5.2.4  An  Example  of  Application  of  Algorithm  STRGCON 


Figure  5.6  shows  the  qtaoh 
example  of  application  for  a 
strongly  connected  components  in 


given  in  [TAR 
DFS  a laor i thm 
it . 


721  as  an 
containing 


8 


7 


Figure  5.6 

Digraph  with  Stronoly  Connected  Components 
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The  sane  qiaph  can  be  considered  to  represent  a maooinq 


a set  of  variables 

EQ#1: 

VAR#  1 

EQ#2: 

VAR#  2 

EQ#3: 

VAR#  3 

EQ#  4 : 

VAR  # 4 

EQ#  5 : 

VAR  #5 

EO#  6 : 

VAR#  ft 

EQ#  7 : 

VAR#  7 

EO#8:' 

VAR  # 8 

From  this 

set  of 

F(VAR#2,VAR#5)  ; 


precedence  matiix  of  name  relationshios  as  shown  in  the 
output  of  Fiqure  5.7  below 


ADJACENCY  MATRIX  OF  NAME  RELATIONSHIPS 


5 10  15 


1 

EQ#  1 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

0 

2 

EQ#  2 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

0 

0 

0 

0 

0 

3 

EQ#  3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

0 

0 

0 

0 

4 

EQ#4 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

0 

0 

0 

5 

EO#  5 

0 

0 

n 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

0 

0 

6 

EQ#  6 

0 

0 

0 

0 

9 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

0 

7 

EQ#  7 

n 

u 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

0 

8 

EQ#  8 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

4 

9 

VAR  # 1 

r, 

3 

0 

0 

0 

0 

0 

0 

0 

0 

n 

0 

0 

0 

0 

0 

10 

VAR#  2 

0 

0 

3 

0 

0 

0 

0 

3 

0 

0 

0 

0 

0 

0 

0 

0 

11 

VAR#  3 

0 

0 

0 

3 

0 

0 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

12 

VAR  #4 

0 

0 

0 

0 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

13 

VAR  # 5 

0 

0 

3 

0 

0 

3 

0 

rt 

0 

0 

0 

0 

0 

0 

0 

0 

14 

VAR  #6 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

15 

VAR#  7 

0 

0 

0 

3 

0 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

16 

VAR#  3 

3 

0 

0 

0 

0 

0 

3 

0 

0 

0 

0 

0 

0 

0 

0 

0 

Fiqute  5.7 

Precedence  Matiix  Generated  for  Samole  Equations 
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Finally  PiquLe  5.10  shows  the  listing  of  those  stionqlv 
connected  comoonents  identified  by  the  alqoiithm,  toqethei 
with  illustiatinn  the  intei connect  ion  of  theii  elements. 


THE  FOLLOWING  GROUPS  OF  ITE'IS  ARE  CIRCULARLY  DESCRI  RED 


VAP47 
EQ#7 
VAR#  5 
EQ#5 
VAR#  4 
EQ#  4 
VAP  # 3 
BO#  3 


VAR  # 8 
EQ#  3 
VAR#  2 
EQ#  2 
VAR#  1 
EQ#  1 


Fiquie  5.10 

Identification  of  Sttonqly  Connected  Components  hv  "ODE L 
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5.3  Linking  and  Metginq  Simultaneous  Assertions 

in  the  Associative  Memory  (Condensation) 

Those  assertions  which  belong  to  the  same  strongly 
connected  component  and  which  are  resolved  as  a simultaneous 
set  by  the  cycles  analysis  are  linked  together  in  the 
associative  memory.  This  process  can  be  considered  as  the 
equivalent  of  the  "condensation"  of  nodes  in  a digraoh  to 
transform  it  into  an  acyclic  structure.  By  linking  the 
assertion  toqether  it  is  possible  to  access  the  whole  group 
when  interrogating  the  associative  memory.  Also  all  the 
information  pertinent  to  an  individual  assertion  in  the 
group  is  still  kept  for  purposes  of  documentation,  code 
generation  and  further  analysis  by  MODEL.  Similarly  those 
assertions  which  have  a simple  name  in  common  are  also 
considered  to  be  a set  of  simultaneous  assertions  and  are 
linked  in  the  same  way  in  the  associative  memory  (for 
instance,  the  assertion  names  COUNTPY.ONP  and  COUNTRY. C have 
in  common  the  simple  name  COUNTRY  and  therefore  are  linked 
together  using  the  same  logic  as  in  the  case  of  simultaneous 
assertions  analyzed  bv  the  cycles  processor). 

Whenever  two  or  more  assertions  are  given  the  same  name, 
then  those  assertions  are  also  treated  as  simultaneous  and 
their  structural  information  aqain  linked,  but  this  time 
under  the  same  storage  entry  name.  This  process  will  be 
referred  as  "merging"  the  assertions. 


Since  during  the  syntax  analysis  each  statement  is 


2 K> 

stored  in  the  associative  me no t y in  a coded  form,  next 
sections  describes  the  structure  and  interrelation  between 
elements  of  an  assertion  storaqe  entry. 

5.3.1  Directory  Structure 

The  directory  uses  a "branch  and  bound"  binaiy  tree 
structure  for  efficient  seatchinq  and  maintenance  of  its 
entries.  That  is,  when  qeneratinq  the  directory  the  first 
key  name  becomes  the  root  of  th^  tree  while  the  next  key  is 
entered  above  or  below  it  in  the  tree  bv  lexicoor aohic 
order.  KveLy  key  name  have  one  entry  in  the  directory  and 
each  entry  points  to  to  the  first  storaqe  entry  ccontaininq 
that  name.  A linked  list  is  then  maintained  from  this  first 
storaqe  entry  to  other  storaqe  entries  containinq  the  same 
kev  name. 

Cach  directory  entiv  has  the  followinq  format: 

| -I- + + | 

| KfV-iJAMR  1 1JP-PTP  | OO'vd-PTP  | F-PTR  I 

| + + + I 

w'ner  e 

KEY-NAME  is  a strina  of  uo  to  10  characters  (oadded  with 

blanks)  ; 

UP-PTR  and  DQ.VN-PTR  are  nointets  to  other  directory  entries 
in  the  tree  structure,  whose  key  names  ate  un  or  down 
respectively,  in  the  lexicoetaohical  sense; 

F-PPU  is  a pointer  to  the  first  storane  entry  that  contains 


the  key  name 


5.3.2  Key  Names 


The  names  qiven  by  the  user  foi  naming  data,  assertions, 
etc.,  ate  prefixed  by  a two  character  code  which  identifies 
the  type  of  name  beinq  stored.  This  comoound  name  becomes 
the  Key  name  by  which  is  oossible  to  tettieve  information 
later  on.  If  the  data  name  supolied  bv  the  user  is  lonqet 
than  8 characters,  then  it  is  encoded  into  a 4 character 
lenqth  strinq  which  is  then  stored  in  the  directory  after 
prefixinq  by  the  aoorooriate  two  character  code.  Those 
names  which  are  lonqer  than  3 characters  are  saved  in  a tree 
structure,  and  the  coded  strinq  in  the  directory  is  actually 
an  index  to  the  name  in  the  tree  structure. 

The  complete  list  of  identification  orefixes  can  be 
found  in  the  MODEL  system  documentation  fSHA  78],  for 
examole  data  names  reoresentina  GR0HP5  use  the  prefix  '?G', 
assertions  use  the  orefix  *$A'  and  so  on.  In  addition,  the 
first  key  name  in  any  storaqe  entrv  is  a soecial  two 
character  name  which  identifies  the  type  of  statement  the 
storage  entry  represent.  In  the  case  of  assertions,  the 
first  key  name  of  the  storaqe  entrv  must  be  'SA' 
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5.3.3  Stoiano  rn^ iie^  foL  Assertions 

One  stotme  entrv  is  created  foi  each  '4ODEL  statement, 
in  general  the  stoiaae  entries  consists  of  two  oarts: 

(1)  Key  names  to  he  entered  in  the  directory;  and 

(2)  Auxiliary  data  fiom  the  souLce  lanouaqe  statement. 
This  data  is  in  encoded  form  and  it  is  not  used  as  basis  for 
t etr ieval . 

The  stor.aqe  entries  have  the  following  format: 


| M | OATA-PTR  | | OPTR  (1)1  *JPTR  ( 1 ) I I ...  I | OPTP  ( !\! ) | NPTR ( N ) I I 


* 

| DATA  AREA  | 


where 

N is  the  number  of  key  names  in  the  storane  entry; 

DATA-PTR  is  the  oointer  to  the  3uxiliaiv  encoded 

representation  of  the  source  statement  (data  area); 

DPTP(I)  ( I — 1 TO  l)  is  the  directory  entiv  oointer  to  th^  ith 
key  name;  and 

NPTR(I)  (1  = 1 70  ivi ) is  a oointer  to  the  next  storaqe  entrv 

with  the  same  key  name. 
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The  DATA  ARK A consists  of  two  parts: 

(1)  Common  data  area  and 

(2)  Fxtended  data  area 


COMMON 

DATA-AREA 

EXTENDED 

DATA-AREA 


i 

5. 3. 3.1  The  Common  Data  Area 

i 

The  common  data  area  is  used  by  all  tyoes  of  statements 
and  contains  five  entries  with  the  following  format: 


COMMCNT-PTR 
USER-LINE# 
PROC-LINE# 
DATA  LIST 
RESERVED 


where 

COMMENT-PTR  Points  to  the  "comment  strinq"  associated  with 


the  statement; 


USER-LINE#  is  the  ’input  line  numbei  in  which  the  statement 
beqin ; 

P ROC -LINE#  is  a statement  numbei  supplied  by  the  system; 
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DATA-LIST  is  a onintoi  to  a block  of  data  which  is  f i 1 lei 
dur  inq  the  cieation  of  the  dictionary. 

5.  5.3.2  The  Extended  Data  Area  foi  Assertions 

The  extended  data  aiea  contains  additional  information 
for  different  nrouos  of  statements.  The  format  of  the 
extended  data  area  foi  assertions  is  as  follows: 


VL-PTP 


V3S-P  re 


NAFS-PTR 


SV-PTR 


TV-PTw 


FU  - PT'3 


id i t-ptr 


tpst-ptr 


OOL-PTP 


wher  e 

VL-PTR  points  to  a list  of  variables  used  in  the  assertion. 
This  oointer  is  obtained  durinq  the  creation  of  the 
diet ionar  v. 

ASS-PTR  points  to  the  root  of  the  "derivation  tree"  (DT)  of 
the  assertion.  This  derivation  tree  is  oenerated 
durinq  the  syntax  analysis  chase.  The  DT  is  a list  of 
entries  that  represent  each  production  in  the  EBNF  for 
the  assertion  (see  [SHA  7 R ] for  detailed  descriotion 


! 


of  the  list) 
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NASS-PTR  points  to  the  data  atea  ot  to  the  storage  enliv  of 
^ anothei  asseition  if  the  two  asset  tions  belonq  to  a 

set  of  simultaneous  equations. 

SV-PTR  and  TV-PTR  ate  oointets  to  the  soutce  an-*  taiqet 
vatiable  list,  t esoect ively , fot  t!iis  asseition.  The 
list  is  specified  bv  the  usei  in  the  "headei  section 
of  the  assettion. 

FN-PTR  is  a oointei  to  a list  of  function  names  tefeienced 
in  t h e asseition. 

INIT-PTR  is  a pointei  to  a list  of  initial  values  foi 
vatiables  used  in  asset tions.  These  initial  values 
ate  used  as  the  stattinq  ooint  foL  itetative  solution 
schemes  of  simultaneous  asset tions. 

TEST-PTR  is  a oointei  to  a list  of  conditons  associated  with 
each  vatiable  foL  termination  of  the  iterations  in  the 
solution  of  simultaneous  equations  bv  iteLative 
methods.  The  list  teoiesent  the  conveiqence  criteria. 


SOL-PTR  is  a oointei  to  a list  of  solution  methods  and 
associated  Daiameteis  fot  simultaneous  asseitions. 
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b.3.4  The  LIMKAS  r'loce'iuie 

The  Procedure  DIMKAS ( PTR ) is  passed  a pointer  (PTR)  to 
the  linked  list  of  stronqlv  connected  comoonents 
r eoresentinq  elements  of  a simultaneous  assertion  noun.  It 
then  proceeds  to  retrieve  and  link  the  stniaqe  entries 
coi tespondinq  to  assertions  in  the  qioun.  The  linkaqe  is 
done  by  setting  the  pointer  NASS-PTR  in  the  extended  data 
atea  of  the  assertion  storaqe  entiv.  NASS-PTR  actuallv 
points  to  a structuie  with  the  followinq  format.: 

| + + | 

I CODE  | FIRST-PTP  | NEXT- PTR  I 

| + + I 


where 

CODE  is  'D'  or  'S'  oi  blank  and  represents  the  tyr>°  of 
pointer  specified  bv  NEXT-PTR. 

FIRST-PTR  points  to  the  first  storaoe  entrv  in  the  linked 
list. 

NEXT-PTR  is  a oointet  to  the  data  area  of  an  assertion  (if 
CODE  = *0')  oi  to  another  storaqe  entrv  (if  CODE  = 

'S').  If  the  code  is  blank,  then  the  asseition 
represented  by  the  current  data  area  is  the  last 
assertion  in  the  set. 

Since  LINKAS  is  called  at  the  end  of  cycles  analysis  to 
link  the  storaqe  entries  of  a simultaneous  set  oF 
assertions,  it  3lwavs  set  the  code  to  'S'  or  hlank.  After 
Ptocessinq  of  the  storaqe  entries  by  DIMKAS , only  the  entrv 
for  the  first  assertion  is  kept  in  the  "oiecedence  matrix” 
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list. 


AsseLtions  usinq  name  qualification  and  which  have  a 
simple  name  in  common  aie  linked  in  a similar  way  but  before 
cycles  analysis,  dui inn  the  syntax  analysis  staqe.  If  the 
user  qives  exactly  the  same  name  to  a qroup  of  two  or  mote 
assertions,  these  are  "neraed"  toqether  also  durino  the 
syntax  analysis  phase  by  creatino  only  one  storaqe  entry  foi 
the  common  name,  but  this  storaqe  entry  will  contain  a 
linked  list  of  extended  data  areas,  one  for  each  assertion 
in  the  qtouo.  The  CODP  field  in  the  structure  pointed  bv 
NASS-PTR  in  this  case  will  be  ' f * ' . The  whole  qioun  of 
assertions  with  the  same  name  are  considered  as  one  sinqle 
node  in  the  otaphic  representation  (one  entiv  in  the 
adjacency  list) . 


/ 
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5.1  Tearinq  Strongly  Connected  Components 

The  partition  induced  into  a system  by  the 
identification  of  the  strongly  connected  blocks  is  essential 
for  an  automatic  oiooiam  generator  and  also  aids  in 
understanding  and  solving  large  and  comolex  models.  lowev<u 
in  many  instances  (for  example  in  econometiic  studies  and  in 
moiels  of  chemical  ptocess)  the  size  of  th«  simultaneous 
blocks  miqht  be  so  latqe  that  still  it  will  be  difficult  to 
tLace  oossible  etiots  and  to  understand  the 
i n ter i e la t ionsh ins  between  the  comoonents  of  the  block.  It 
is  then  leqitimate  to  ask  whether  it  is  oossible  to 
eliminate  from  the  adjacency  list  one  or  more  elements  in 
the  qioup  such  that  it  then  becomes  feasible  further 
decomposition  into  smaller  and  more  manaqeable  blocks.  This 
ntocess  of  removinq  elements  from  the  original  structure  is 
called  "Tearinq".  Steward  [STE  651  nrooosed  an  aloorithm 
based  on  elementary  ciicuits  inside  each  block.  Steward's 
algorithm  is  based  sclelv  on  structural  information  and  not 
on  analysis  of  how  the  variables  to  be  removed  (torn 
element)aio  used  in  the  eouation.  Latar  Sovlemez  [SOY  711 
added  symbolic  alqebtaic  analysis  to  Steward  aloorithm  and 
used  it  to  qenerate  Fortran  solution  Dtoqiams  for  chemical 
models . 

Tearinq  will  normally  imolv  an  iteration  scheme  in  which 
the  torn  element  is  qiven  an  initial  value  so  that  the 
temaininq  blocks  can  be  solved  indeoendent ly . The  solution 
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of  these  blocks  in  turn  mioht  Hetetnine  a new  value  foi  the 
torn  element.  This  process  is  continued  until  an  oveiall 
conveiqence  criteria  is  net.  Mormally  the  initial  value  fOL 
the  torn  element  is  set  eaual  to  the  observe*  ot  historical 
data.  If  a sensitivity  analysis  shows  that  the  torn  element 
does  not  affect  substantial  ly  the  solution  of  the  terrain  inn 
equations,  it  is  then  oossible  to  set  the  torn  element  to  a 
constant  and  oroceed  to  the  study  and  solution  of  the 
remaining  elements  of  the  system  as  if  it  were  decomoosable 
or  causal.  This  oroblem  is  similar  to  the 
"semidecomoosit ion"  oroblem  found  in  th°  study  of  seouential 
machines  [ • I A 66).  Sufficient  literature-  is  found  today  on 
the  aloebraic  otoperties  of  these  machines  fK^O  621  and 
conditions  for  the  realization  of  decomoosition  (cascade  or 
parallel),  such  as  to  orovide  a solid  theoretical  framework 
for  further  studies  on  their  relation  and  aoolication  to 
dynamic  models. 


« 


To  illustrate 


cons 


the  adjacency 


T'atLix  in  Piqure  5.J1 

is  undecoraposable . 


This  matrix  represent  a 


. Figure  5.11 

On  decomoor,  able  Adjacency  Matt 


ltion  <7raoh  can  Hp  aum  r 

drawn  from  this  matrix 

in  Fiqure  5.12. 


Fiqui e 5.13 

Semi'iecomoosltion  Illustration 

If  the  matrix  were  lepresentinq  a simultaneous  system  of 
equations,  an  interpretation  would  be  that  the  solution  can 
be  found  by  assiqninq  a value  to  variable  3,  then  solvinq 
foi  variables  4 and  5.  Variable  2 can  then  he  determined 
and  1 from  2.  From  the  values  found  for  variables  5 and  1, 
a new  quess  of  variable  3 is  determined,  and  so  on. 


For  example,  in  desciibino  the  LINK  world  trade  model  fPM 
73,KLE  76]  (refer  also  to  chapter  7 of  this  dissertation), 
semidecomposition  is  implicit  by  a priori  partition  of  the 
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totality  of  the  model  into  national  models  and  a trade 
model.  Also  the  LINK  alqorithm  defines  the  torn  elements  to 
be  import  or  ices  (PM)  and  exoort  Volumes  (X),  used  as 
exogenous  in  the  country  models  and  later  comnuted 
endooenously  by  the  trade  model.  Total  world  trade  (TW)  is 
also  used  initially  exogenous  with  the  country  best  guess 
and  comouted  later  from  the  account  identity 

TW$ (t)  = £ X$i  (t) 
is  l 

The  main  objections  to  Steward's  alqorithm  had  been  the  ( 

computational  complexity  of  tracinq  every  elementary  looo  of 
a biq  system  of  simultaneous  equations.  However  with  the  j 

advent  of  efficient  linear  enumeratinq  alqorithms  (JOH  75] 
it  becomes  a feasible,  but  still  time  consuminq, 
proposition . 

A totally  different  aooroach  was  exoerimented  with 
econometric  models  as  oart  of  tnis  dissertation  research, 
and  reported  in  some  detail  in  FGAN  76c]  . Basically  it  was 
realized  the  similarities  between  the  problem  of  breakinq  a 
simultaneous  system  of  equations  into  qrouos  of  equations 
which  are  in  some  sense  "closely"  related  to  other  eauations 
in  the  group  but  "loosely"  related  to  the  ones  in  the  other 
q roups , and  that  of  qroupinq  "similar"  or  "like"  records  or 
descriptors  together  in  information  retrieval  and  automatic 
classification  systems.  These  systems  use  clustering 
techniques  in  order  to  facilitate  retrieval  and  reduce 
access  time.  In  particular  a very  efficient  heuristic 
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alqorithm  (CLASFY  [LIT  f>h|)  was  aonl ied  to  an  econometr  i c 
model  of  Geimany  to  study  the  feasibility  of  its 
decomoos i t. ion  as  well  as  its  convergence  properties.  'lore 
experimentation  and  research  is  needed  before  asset  tins 
definitive  conclusions  on  the  use  of  these  technioues.  '-Jhat 
appears  to  be  valuable  in  CLAGFY  is  that  it  is  Possible  to 
define  the  number  of  blocks  of  the  partition  an  well  as 
sensitivity  levels  or  thresholds  of  association. 

In  summary,  the  tea  r i nq  of  biq  simultaneous  systems  is 
an  area  which  deserves  attention,  particularly  in  liqht  of 
the  advent  of  low  cost  microprocessors  and  the  possibilities 
of  parallel  computation.  Also  the  addition  of  symbolic 
alciebtaic  analysis  to  an  efficient  alqorithm  such  as  Cf.ASFY 
mi^ht  otove  to  be  a valuable  tool  for  unde t stand inq  complex 


systems 


CHAPTER  6 


After  a given  specification  is  analyzed  for  completeness 
and  cycles  or  simultaneous  assertions,  its  statements  are 
sequenced  and  analyzed  for  optimal  scope  of  iterations.  A 
flowchart  table  containing  the  complete  control  logic  for 
the  desired  program  is  then  generated  and  used  in  the 
subsequent  code  generation  stage.  In  general  the  generation 
of  PL/1  code  from  the  flowchart  table  is  straightforward  and 
its  implementation  for  a previous  version  of  MODEL  was 
reported  by  Rin  [RIH  76] . This  chapter  extends  that 
methodology  to  include  solution  procedures  for  sets  of 
simultaneous  assertions  (possible  non-linear),  and  discusses 
some  theoretical  and  design  aspects  for  its  implementation. 
Considerations  are  also  given  for  the  case  of  assertions 
which  are  not  "normalized",  i.e.,  without  a single 
one-variable  dependent  term  on  the  left  of  the  equal  sign. 
For  example  the  following  assertion  can  be  used  in 
describing  a module: 

VX(I)/PX(I)  = A ( I ) + B(I)*SUM(A70(I,J)*VM(J) ,J)/PX(I) 

+ G ( I ) * PCOM ( I ) /PX ( I ) + D ( I ) *T ; 

where  the  LHS  expression  contains  two  variables,  VX  and  PX. 
Model  builders  can  take  advantage  of  this  facility  and 
generate  modules  with  different  choices  of  normalization 
when  a simultaneous  block  presents  convergence  problems.  An 
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algorithm  is  given  to  automatically  produce  a "normalized" 
assertion  once  the  user  selects  a target  variable. 

The  solution  procedures  are  transparent  to  the  user,  but 
for  their  associated  set  of  parameters.  They  are  generated 
independently  for  each  block  of  simultaneous  assertions 
present  in  a module.  In  summary,  computational  efficiency 
is  achieved  through  three  specific  features  of  MODEL 
implementation: 

1 - The  sequencing  phase  of  MODEL  produces  an  ordering 
of  the  statements  for  their  evaluation  in  the  ultimate 
program.  The  resulting  adjacency  representation  of  a 
module  becomes  a "block  triangular"  structure.  The 
flowchart  can  be  obtained  after  this  phase,  once  the 
scope  of  iterations  have  been  determined  for  maximum 
efficiency. 

2 - A module  is  broken  down  into  as  many  recursive 
blocks  of  simultaneous  equations  as  possible,  then 
during  execution  of  the  generated  PL/1  program,  each 
block  is  solved  separately.  This  technique  requires 
less  computer  time  and  program  memory  than  would  be 
needed  for  solution  of  the  entire  set  of  assertions  in 
the  module  as  a single  unit. 

3 - Further  optimization  at  the  machine  instructions 
level  can  be  achieved  by  compiling  the  target  PL/1 
program  with  the  optimazing  compiler.  This  particular 


253 


phase  mechanizes  a procedure  used  by  many  simulation 
programs  [JOH  76]  where  "constant"  terms  or 
expressions  which  are  part  of  an  assertion  that  is 
iterated  for  simultaneous  solution  are  placed  in  a 
separate  subroutine  for  single  evaluation.  In  a large 
scale  dynamic  model,  these  constant  terms  can  be 
expressions  of  lagged  variables,  exogenous  variables, 
coefficients  or  disturbances.  Since  these  expressions 
do  not  change  from  iteration  to  iteration,  great 
savinqs  in  computation  time  are  obtained  when  thev  are 
transferred  outside  the  iterative  solution  loop. 
Other  optimization  features  at  this  level  include  the 
elimination  of  common  and  redundant  exoressions,  as 
well  as  simplification  of  exoressions  (see  the  IBM 
manual  [PL1  75]  for  general  information  on  the  PL/1 
optimazing  compiler). 

6.2  Solving  Non-linear  Simultaneous  Equations 

While  there  exist  many  methods  available  for  solving  a 
set  of  general  non-linear  algebraic  equations,  the 
discussion  in  this  chanter  will  center  only  on  the 
implementation  of  the  Gauss-Seidel  and  Successive  Over 
Relaxation  (SOR)  techniques.  These  methods  are  widely  used 
in  econometric  research  for  simulation  and  forecasting 
purposes,  but  they  are  not  recommended  for  application  areas 
whose  models  are  characterized  by  strong  non-linearities  and 
where  a good  starting  approximation  for  the  solution  is  not 
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generally  known. 

Since  most  econometric  models  are  close  to  linear  around 
the  solution  neighborhood,  and  its  possible  to  use  the 
previous  period  observed  or  computed  values  as  a good 
initial  solution  estimate,  the  economist  can  take  advantage 
of  the  conceptual  simplicity  of  the  Gauss-Seidel  and  SOR 
methods  as  well  as  of  their  lower  implementation  cost.  For 
application  in  the  engineering  or  biological  sciences,  the 
same  implementation  guidelines  can  be  followed  by 
introducing  solution  procedures  such  as  the  full  Newton’s 
method . 

6.2.1  General  Principles 

To  describe  the  solution  procedures  consider  a block  of 
simultaneous  assertions  as  follows: 

(i)  Y = F(Y,X) 

where  Y is  an  n vector  of  target  (endogenous)  variables 
(yx  , . . . . ,yn)  ' , F is  an  n vector  of  functions  (£x  , . . . . ,f^)  * , 
and  X is  an  m vector  of  source  variables  (xx  ,...., xm)  ' . 
Note  that  in  the  case  of  a dynamic  econometric  model,  for 
example,  X will  include  all  predetermined  exogenous  and 
lagged  variables  plus  the  parameters  and  disturbances.  For 
purposes  of  stating  the  iterative  algorithm,  it  is 
convenient  to  suppress  the  source  elements  in  the  notation 
and  use  the  compacted  form  for  the  system: 

(i)  ’ Y = G ( Y) 

wt»te  G is  the  n vector  of  functions  (g^ , . . • • »gn)  ' . This 


Y 
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i eDLesentation  assumes  that  each  assertion  has  been 
normalized  in  such  a wav  as  to  determine  a distinct 
endoqenous  variable  for  the  system. 


Suppose  now  that  Y°  is  some  initial  approximation  vectoi 

to  the  solution  of  the  system.  Poi  a dynamic  system  this 

o 

can  effectively  be  assured  as  v£  = \-i*  Define  iteratively 
(ii)  Y = G(Yr)  k =0 , 1 , 2 , . . . 

The  sequence  Y° , Y1 , , . . . , Y^ , Y^+1w i 1 1 conveipe  to  a 
unique  solution  (fixed  point)  between  a oiven  interval  fa,h] 
provided  that  G satisfiec  the  well  known  conditions  stated 
by  the  contraction  maooinq  theorem.  In  nonei.nl  these 
conditions  are  either  not  fulfilled  bv  sore  In  }e  scale 
models,  ol  veiy  difficult  to  come  by  analvticalv. 
Fortunately  in  most  aconometL  ic  models  convergence  and 
uniqueness  can  be  expected  in  practice  because  of  their 

prooeity  of  local  near-linearity  and  the  fact  that  the 

o 

staitim  values  Y^  = Y^_^  are  veiv  pood  approximations  to  the 
solution.  In  fact  in  cases  wheie  "ultinle  solutions  have 
been  encountered,  thev  normally  present  an  unrealistic 
scenario  and  can  be  discarded  (foi  example  nenative 
employment  rates  fFFI  71). 


The  iterative  oioceduie  aiven  bv  equation  (ii)  is  known 
as  the  Jacobi  method.  The  Gauss-Geidel  technique  takes 
advantape  of  existing  sequential  processors  and  substitutes 
the  most  lecently  commuted  value  Cot  endonenou"  variables 
Vj  »--.»yi.1»  into  the  lipht  hand  side  of  equation  fot  y.  . 
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References  to  vaL tables  y-  , . . . ,vn  still  use  the  nievious 
iteration  a do  t ox  i. -"at  ion.  That  is; 


(y2 

( Vj 


• * • vn  ' 


ll  + l , K + L h+1 

V71  = <VV  


By  uodatino  the  solution  vector  as  the  new  values  ate 
calculated  and  not  at  the  end  of  °ach  itetation,  this 
process  becomes  computationally  mote  efficient  than  the 
Jacobi  method  (a  different  analysis  will  he  require'*  if  the 
methods  were  implemented  in  certain  classes  of  oarallel 
orocessot  s ) . 


6.2.2  Selecting  the  Output  Set 

Considerations  must  be  liven  to  the  normalization  Lule 
used  foL  each  assertion.  Most  economic  models  show  a 
"natural"  or  loaical  normalization  fot  each  emiation, 
however  difficulty  arises  when  there  is  a leasonable  choice 
for  normalization  (selection  of  the  outout  set)  amonq  a 
irouo  of  assertions.  In  fact  the  natural  not ma 1 izat ion  used 
for  estimation  of  the  model  need  not  be  the  same  used  for 
solution  of  the  model.  These  points  can  be  illustrated 
usinq  a simple  two  equation  linear  system; 


yl  ~ (au2  + ux)/(l  - ah) 
v2  = (hdj  + u2)/(l  - ab) 

in  tens  of  the  n.auss-Se ide  1 sequence  of  iterations: 

. ftt)  lt+1  A l. 

(3)  yx  = (ah)  v ° + 2- (ah)  (uA  + au2) 

i*o 

which  in  turns  can  he  substituted  in  (2)  to  coanute  v . poi 
the  sequence  in  (3)  to  convene  the  condition  is: 

I a h | < 1 

F i a u te  S.l  illustrates  a convenent.  solution  oath. 
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then  the  seauence 

to 

(5)  ' V*+1=:  (1/ab)*  1y®  - £(l/ab)  (u,/ah  - u./h) 

1 L--o 

will  dive lie  for  |ab|  < 1 as  illustrated  in  Fiaute  6.2. 


Finute  6.2 
niveiqent  path 


Section  6.4  will  present  some  mechanism^  bv  which  a 


usei 


can  experiment  with  different  normalization 


i u 1 e s 


In 


qeneial  the  model  builder  should  study  and  follow  the  Ionic 
of  the  system  under  study  for  its  noi mal ization. 


6.2.3  Necessary  and  Sufficient  Conditions  for  Convene  nee 


Given  the  Jacobi  orocess  of  Successive  aonrox  imat ions , 


which  is  defined  bv 


cW)  C k-ll 

Y = ay  +h 


foL  a lineal  system,  then  it  can  be  shown  that  for  any 

, C<0  tU> 

initial  vector  Y and  anv  "b",  1 im  Y =Y  if  and  only  if 

!<-*•  oo 

all  I AjCl,  where  i = l , 2 , 3 , . . . ,n  are  the  eioenvalues  of  A. 


Proof:  Let 


v‘W.„‘k-V 


Y =AY  + b 


be  the  kth  aoor oximation  and  the  exact  solution 
resoectivelv.  Substracting  (5)  - (4) 

(6)  Y - ( Y - Y^’1^) 


and  exnandinq  (6) 

y-Y(k)=A  (Y-Y(k_i))  =4l  (Y-Y(k‘J>)= = Ak  (Y-Y^) 

therefore  1 im  ( Y-Y^)  = lim  Ak  (Y-Y^) 

k — ► oo  k -*■  oo 

, 00 

for  converaence  it  is  necessary  that  lim(Y-Y  )=0, 

k —* 

hence  the  necessary  and  sufficient  condition  is  lim  a"  =0, 

k— » 

or  all  eiqenvalues  of  the  matrix  A must  be  less  than  unity 
in  absolute  value. 


In  order  to  state  the  conditions  for  a linear  system 
using  Causs-Seidel , let  the  general  system  of  algebraic 
ecruations  be  given  as 

(7)  nx  = C with  |*|  j 0 


r 

r 


then  the  necessaiv  and  sufficient  conditions  foi  convoroence 

of  this  method  is  that  all  the  eigenvalues  of  the  matrix 

-x 

* r?2  be  less  than  unity  in  absolute  value,  where  is  the 
upper  trianqular  matrix  of  A,  including  the  main  diagonal, 
and  is  the  lowei  trianole  matrix  witn  its  diagonal  = 0. 
Proof:  for  (7)  the  Gauss-Gei  lei  procedure  is 

n v<k)+  n Y(k-i)r  „ 

X 2 y *" 


„ (k)  -1  (k-l)  -1 

( 5 ) Y = - b2  y +b.  • C 

therefore  by  settim  A = -q  an-1  b = r>11>  C , (3)  becomes  as 

(4)  from  which  we  know  from  Jacobi  iteration  conditions  that 
all  eiaenvalues  of  A must  be  l°ss  than  unity  in  absolute 
value. 


Unfortunately,  the  i.molementation  of  these  necessarv  and 
suffucient  conditions  in  a system  are  inefficient  since 
first  the  eiaenvalues  of  the  matrix  are  not  known  in 
advance,  and  their  computation  will  bo  reauiied  befoie 
generation  of  the  solution  procedure.  Therefore  a simple 
sufficient  only  criteria  for  the  Gauss-Seidel  method  will  be 
oiven  which  can  easilv  be  implemented  fRAP  551.  The 

Gauss-Seidel  procedure  will  convetoe  if 

n 

max  £ | a.  • I < 1 

C J ° 

Similar  sufficient  conditions  C3n  he  stated  for  sets  of 
non-linear  equations,  however  thev  renuire  computation  of 
all  oartial  derivatives,  and  knowinq  an  interval  about  the 
root.  These  are  ma-jot  problems  for  automa  t ica  1 1 v checkim 
conver pence  characteristics  hefoi°  reneration  of  a solution 


r 
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procedure . 


6.2.4  An  Improved  Method 


Another  factor  to  consider  when  solving  a simultaneous 
block  of  eauations  is  the  orderinq  of  the  equations  inside 
the  block.  It  is  known  that  different  oiderinq  may  have  a 
dramatic  effect  in  the  soeod  of  converqence  for  the 
Gauss-Seidel  method.  Several  schemes  to  improve 
Gauss-Seidel  in  this  resoect  have  aopeared  in  the  literature 
under  the  qeneric  name  of  relaxation  methods.  One  of  them 
determines  the  order  of  execution  of  an  eouation  accotdinq 
to  the  size  of  the  residuals.  This  method  is  mood  for  hand 
calculations  but  very  cumbersome  to  oroqtam.  A widely  used 
improvement  known  as  the  Successive  Over  Relaxation  (SOR) 
method  is  obtained  by  modifvinq  the  steo  size  at  each 
iteration  adjustment  as  follows: 


k+l 

y.  = hYi  + 


(l-h)y.  or 


V?"  ■ * * 


yfl 


k+l 


where  y^  is  the  function  value  of  the  ith  taraet 
(endogenous)  variable  in  the  current  iteration  and  h is  the 
relaxation  Parameter  to  be  chosen  bv  experimentation  between 
0 and  2.  The  traditional  Gauss-Seidel  method  results  when 
h=l.  This  parameter  can  also  be  varied  in  the  computational 
process  itself  to  brinq  convergence  to  the  final  solution 
faster  . 


I 


"lore  detailed  analysis  of  these  and  other  methods,  and 


of  their  convergence  oronerties  can  he  found  in  standaid 
numerical  analysis  textbooks  (see  foi  examole  [DAH  74]  and 
fORT  70] . 


G.3  Generation  of  a Solution  Procedure 


5.3.1  Simultaneous  Assertions  in  tne  Associative  Memory 


A qtoun  of  simultaneous  assertions  may  b°  either 
"merqed"  into  a sinqle  storaqo  entry  in  the  Ai,  if  the  user 
otovides  the  orouo  with  a common  assertion  name,  or  the 
storage  entries  cot  respond i no  to  distinct  assertion  names 
"linked"  as  a consequence  of  the  cycles  analysis  ot  a common 
qualifier  in  the  name  suoolied  in  their  desct int ion . 

Recallinq  the  format  of  a stotaae  entry,  as  described  in 
chanter  5 section  5.3.3,  the  resultinq  structure  in  the  A*l 
becomes  a recursive  linked  list.  Assume  a set  ft  . 
{ Ax ,A2  ,...., Art } of  assertions  in  a simultaneous  ntouo,  a set 
= { Oj,  , hj  ,....,  of  storaqe  entries  w'lom  m<=n  a^ualr, 

the  total  numhet  of  distinct  names  use-"  foi  assertions  in 


and  finally  a s 


s°t  ^ = { nx  , ^ , on 


} of  data  areas 


cor t espond inq  to  eacn  assertion  A . Then  the  list  can  b 
formally  specified  as  follows: 


" 

• " j?  ...  ' ■ ~ ^ — 


' 

• ■.*- 
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i)  A^Aj  (.  < = = > NAME  (A^  ) = NAME  ( A j ) 

ii)  O;  — > Dj  < = = > A^,Aj  4 Sk 

iii)  D,;  — > Sk  < = = > NAME  (A^  ) ^ NAME(Aj£Sk)) 

f,  NAME(Aj_)  ^NAME(Aj)  =<qname> 

I STRONG_CONNECT(A-  ,Aj  ) 

where  the  symbol  " — >"  indicates  a pointer  relationship  and 
l<=i/j<=n  and  l<=k<=m.  Note  that  in  ii)  and  iii)  the 
pointer  relationship  ( — >)  may  imply  an  ordering  if  the 
condition  i<j  is  added.  This  otderinq  could  be  used  to 
indicate  a particular  execution  sequence  in  the  solution 
procedure  for  critical  systems  of  equations.  For 
implementation  of  such  alternative  , the  ordetinq  should  be 
considered  as  a vector  of  Priorities  associated  with  ft. 
which  could  be  automatically  qenerated  by  an  algorithm  such 
as  the  relaxation  method  based  on  residuals,  or  defined  as  a 
parameter  by  the  user.  In  this  form  MOOEL  will  mantain  its 
non-procedural  characteristic  at  the  statement  level. 

Fiqure  5.3  illustrate  a list  in  the  AM  for  a qenetal 
qroup  of  simultaneous  assertions. 


| MASS-PTF I 


| MASS-PTF | 


I 


I MA3S-PTS  H 


I MASS-PTF I 


^ Rj!+2 


| MASS-PTF I 


M + l I 


| MASS-PTP | 


| tiASS-PTS  | 


Fiqufe  A. 3 

Simultaneous  Asseitions  in  the  am 
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The  data  areas  (Dj_)  will  contain  pointers  to  each 
assertion  and  their  associated  solution  parameters,  as 
depicted  in  Fiqure  6.4. 


VL-PTR 

1 

1 — > 
l 

to 

variable  list 

ASS-PTR 

1 

1 > 

| 

to 

derivation  tree  for  A^ 

NASS-PTP 

1 

1 > 

| 

to 

data  area  or  storaqe  entry 

SV-PTR 

1 

1 > 

) 

to 

source  variable  list 

TV-PTR 

1 

1 > 

1 

to 

tarqet  variable  list 

FN-PTR 

I 

1 > 

1 

to 

list  of  function  names 

INIT-PTR 

1 

1 > 

| 

to  list  of  simole  assertions 
with  initial  values 
to  list  of  simole  assertions 
with  convergence  criteria 
to  list  of  arith.  exoressions 
with  solution  parameters 

TEST-PTR 

1 

I > 

SOL-PTR 

1 — > 

Fiqure  6.4 

Extended  Data  Area  for  Assertion 

All  the  above  oointers  with  the  excention  of  ASS-PTR  and 
NASS-PTP  ooint  to  a dynamic  list  of  entries  with  the 
followinq  format: 

I M | PTR(l)  I ....  I PTR(N)  | 

where  N is  the  number  of  elements  in  th«  list  an^  PTR(I), 
1=1  to  N are  the  oointers  to  assertion  comoonents  as 


soecified  in  Fiqure  6.4 


The  oointer  N^SS-^TP  used  foi  the  linked  list  has  the 


following  fotmat: 

I CODE:  I FIRST-PTK  | NEXT-PTR  I 

wheie  CODE  = 0 | S | hlan< 

FIR3T-PTR  ooints  to  the  stoi  aao  entiv  of  the  fust 
nsrettion  in  the  nrouo,  and 
MEXT-PTR  noints  to  the  -lata  a tea  if  CODr  = P,  to 
a stot  -aae  eotrv  if  code"  = 3 oi  is  the 
last  assertion  in  the  set  if  CODE  = hlank. 


6.3.2  Algorithm  S0LVEG5 

3QLVEGS  -v  i 1 1 be  invoked  each  time  a node  in  the 
flowchart  table  teoiesents  a otoun  of  simultaneous 
assettions.  It  will  tiaveise  the  linked  list  ,an^  oenerate  a 
solution  oioc'rliiie  lot  the  set.  I'he  si^oiest  i^nlenentat  ion 
could  be  a sin-ole  ovetall  iterative  method  fot  evetv 
assertion,  metqeJ  ot  linked,  which  is  a -"ombe t of  the  list, 
ihile  such  imolementation  is  pet  feet  lv  acceptable  and  will 
satisfy  most  anol  ications , the  desi  jn  otesent«d  below  f jllv 
utilizes  the  structure  of  the  list  allowino  nested 
generation  of  solution  orocedutes  un  to  a deoth  of  two. 
This  technique  gives  more  semantic  nowet  to  MOOFL  and  allows 
broader  experimentation  alternatives.  In  fact  it  is  not 
difficult  to  extend  tne  oeneration  alootitht'  in  older  to  use 
the  comolete  n°st?  1 capabilities  -unvided  by  tee  "tree" 


an 


structure  of 


oualified  names 


thu 


oei mi t 


i n n e i 
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iteration  of  selected  subgroups  at  any  recursive  depth. 

The  global  solution  level  is  composed  of  those 
assertions  identified  by  the  "cycles"  processor  as  well  as 
those  with  a common  qualifier  name,  while  the  inneL  or 
second  level  will  consist  of  every  subsystem  using  the  same 
assertion  name.  Thus  SOLVEGS  works  as  follows: 

1. -  It  will  generate  a procedure  call  to  the  global 
solution  procedure,  and  the  cor resoonding  procedure 
code  for  each  list  of  storage  entries  /c). 

2. -  Each  time  a storage  entry  S ( i ) is  found 
containing  a list  of  data  areas  D(j),  j>l,  it  will 
generate  a second  level  procedure  call  together  with 
the  solution  code  for  the  list  Ol*). 

The  process  is  illustrated  with  examples  in  Figure  6.5. 
Each  example  shows  in  the  left  hand  column  the  assertion 
names  and  solution  parameters  (method,  maximum  number  of 
iterations)  as  a representation  of  different  structures  of 
the  list  in  the  AM.  The  right  hand  side  gives  the 
corresponding  code  generation  schema. 


Equivalently  the  second  level  could  be  generated  as  an 
inner  block  with  solution  code  for  © and  delimited  by 
BEGIN  - END  statements. 


* 
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A 1 : SOL : 0 S , 4 0 : Ka ssei  t ion > ; 


CALL  A]  j 


A 2 : 

KasseL  tion> ; 

, Al : PROCl. 

j w 

• 

• 

• 

• 

SOL  < 

K 

i ' 

1 

• 

• 

code 

An : 

Kassei t ion> ; 

'“RETMIRO 

Finuie  A. 

Code  Generation:  One  Storage  Entry  foi  Each  Asseition 


A1:S0L:G  3 , 40  : <assei  t ion>  ; CALL  A 1 ; 

. ~ . ,A1;  DpOC;. 

AK:SOL:G  S , 1 0 ; <3sset t ion>  ; SOL  J Pi- A*. 

AK:  Kasseition>;  G G j co  le 

. . 4 <T  CALL  AK 

AK:  Kassei tion>  j 'RFTOP'l;_ 

AK+1:  Kassertion>;  F.K'O  Al; 


<asseLtion>; 


AK : PROC 

SOL  I AK 
G S | code 

KT  l 

PFTHPM . 
F,NO  ^ K ; 


F i o u l e 6.5b 

Code  Generation:  Subqvouo  Undei  Sinole  Storane  Entry 


Al.X:SOL:G  3,50: 

G 3 , 20 : Kassei t ion> 
Al.X:  " Kassei t ion > 


CALL  A] ; 
rM:  »»OC 
SOL  I CALL  M :: 


Al.X  Kasse: tion>  5U 

A 1 . Y : SOL : 0 Sf50: 

SOL:G  S , 20  : Kassei t ion > 
Al.Y:  Kasseition> 


A 1 . Y : 


Kassei t ion  > 


G S l CALL  M Y SOT.  Al.' 


COCO 
p F f ! J R m ; 
F’JP  Al  ; 


Al  X:  PROC 


Al.x  ; 
G S<  code  s 

20  1 RLrUR'J; 

' nxn  ai  X; 

(A  ] Y : PROC 
Al.Y  1 
code  i 

RETURN;  _J 

FMO  *1  Y; 


Fiome  6.5c 

Code  Generation:  SaTte  Na!**e  and  Coo-ion  rualifiet 
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The  first  examole,  Fiqute  6.5 a,  corresponds  to  the  case 
in  which  there  is  a one  to  one  maopinq  between  the  set  K of 
assertions  and  the  set  A of  storaqe  entries.  This  can 
occur  when  sinqle  assertions  are  found  stronqlv  connected  by 
the  cycles  alqorith.m.  The  solution  orocedure  is  named  as 
the  assertion  name  cot r esoondinq  to  the  first  storage  entry 
in  the  list  (with  " . " substituted  by  " " if  a qualified  name 
is  used).  Onlv  a one  level  solution  orocedure  is  annotated. 
The  actual  solution  code  shown  in  between  brackets  (SO[,{  Ki> 
is  exolained  in  the  followina  section. 


Fiqute  6.5b  presents  a two  level  hierarchical  system, 
the  set  of  assertions  under  a sinqle  storaqe  entry 
cot t espondino  to  AK  will  require  a second  level  solution 
orocedure.  Finally  Fiqute  6.5c  shows  an  instance  in  which 
each  storaqe  entry  contains  a list  of  assertions.  They  also 
contain  a common  qualifier.  In  such  cases  the  user  is 
required  to  soecifv  a "qualified  list"  of  solution 
parameters,  so  that  the  processor  can  determine  without 
ambiauity  those  cot r esoondinq  to  the  qlobal  procedure  from 
those  associated  with  a sinqle  storaqe  entry. 
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6.3.3  Code  Generation 

The  followinq  conventions  are  used  in  describing  the 
Gauss-Seidel  iterative  solution  qenerated  code: 

[TARGET]  = { y 1 #y2, . . . . ,yn } , the  set  of  endoqenous  variables. 

These  are  the  target  variables  of  a group  of 
simultaneous  assertions  PC-  {Al,A2,....,An}. 

[ I N IT ] = { INIT.yl , INIT.y2 ,...., INIT.yn } , is  the  set  of 

initial  values  for  endoqenous  variables.  They  are 
obtained  from  the  corresponding  list  in  D(i)  for 
A(i) . 


[LAST]  = { LAST.yl , LAST. y 2 ,...., LAST. yn } , a set  of  auxiliary 
variables  for  temporarily  holding  the  last  iteration 
values  of  endogenous  variables. 

[TEST]  = [TEST.yl ,TEST.y2 , ....,TEST.yn],  is  the  set  of 
convergence  TEST  values  associated  with  each 
endogenous  variable  yi(i).  It  is  obtained  from 
corresponding  list  in  data  area  D(i). 

i*i  = {A1 ,A2 An] , consist  of  the  body  of  computational 
equations  for  the  procedure 


eg . y^  = f j(  y^  »....» y^  0 # u 
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Whenevei  UAMS(Ai)  = NAME (A j)  a CALL  MAME(Ai)  is 
insetted  instead  of  the  asertion  in  the  qlobal 
procedure  and  a second  level  oroceduie  NA'IEfAi)  is 
qenetated  with  the  same  schema  as  described  below. 
The  second  level  oroceduie  will  contain  all  assertions 
in  the  sane  storage  entry  as  Ai. 

Conditional  exoiessions  ate  nene rated  for  assertions 
usinq  the  IP  or  FOR  clause 


1AX_<otoc-name>  = The  maximum  number  of  iterations  parameter 

for  the  oroceJure.  The  list  of  naraneteis 
is  stored  by  the  MODEL  orocessoi  in  the 
first  data  area  of  each  storaqe  entry  Si. 


STEP  <otoc-name>  = Optative  steo  size  parameter  associated 

with  the  orocedure.  Used  for  neneration  of 
the  imotoved  SOR  solution  method.  Also 
stored  in  the  solution  oarameter  list  in 
each  Si. 


Fiquie  6.6  shows  the  schemat 
Gauss-Seidel  qenetated  alnorithm 
variable  used  as  a counter  for  the 


ic  imDlenentat ion  of  the 
. ITER  is  an  auxiliary 
number  of  iterations. 


■r  ■ 
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<ptoc-name>:  PROCEDURE 


(1) 

ITER  = 0 

(2)* 

[TARGET]  = [INIT] 

(3)* 

[LAST]  = [TARGET] 

(4) 

ITER  = ITER  + 1 

(5) 

IF  ( ITER  > MAX  <proc-name> 

) GOTO  (10) 

(6)* 

1*1 

(7)* 

IF (ABS ( (TARGET]  - [LAST])  > 

[TEST])  GOTO  (3) 

(8) 

PRINT  'SOLUTION  REQI RED ' ITER  'ITERATIONS' 

(9) 

RETURN 

(10) 

PRINT  'NO  SOLUTION  IN  ’ MAX 

<otoc-name>  'ITERATIONS' 

(ID 

RETURN 

(12) 

END  <otoc-name> 

Figure  6.6 

Code  Generation  Schema 


* These  steps  contain  "set  expressions"  which  should  be 
expanded  for  each  element  in  the  set.  Operations  between 
sets  are  done  on  a one-to-one  basis.  For  instance  step 
(2)  is  expanded  as  folows: 

(2)  TARGET. Y1  = INIT.Y1 
TARGET. Y2  = INIT.Y2 


TARGET. YN 


INIT.YN 


V 


27  4 

The  schema  of  Fioure  6.5  can  be  modified  to  represent 
the  SOR  method  by  intioducinq  the  followim  code  in  order  to 
chanqe  step  size: 

(1)  — > (2) 

(2.1)  NT  = 0 

(3)  [TARGET]  = [LAST] 

+ STEP_<oroc-name>  * ([TARGET]  - [LAST]) 

(3.1)  [LAST]  = [TARGET] 

(4)  — > (Q) 

/* CHANGE  STEP  SIZE */ 

(10)  STEP  <oroc-name>  = STEP  <proc-name>  * 0.S 

(10.1)  ITER  = 0 

(10.2)  NT  = NT  + 1 

(10.3)  I F ( NT  > NSTOP_ <oioc-name>)  GOTO  (11) 

/* TRY  TO  CONTINUE */ 

(10.4)  GOTO  (3) 

(10.5)  PRINT  'NO  SOLUTION  FOR'  NT  'STEP  CHANGES’ 

(11)  — > (12) 

where  NSTOP_<proc-numhpf > is  a solution  parameter  indicating 
the  maximum  number  of  attempts  at  different  stem  sizes  and 
NT  is  an  auxiliary  variable  used  to  accumulate  the  number  of 
chanqes . 


The  cor respondinq  PL/1  code  generated  by  SOLVEG3  will  he 
outputed  to  a PL/1  procedure  file  PL1PROC. 


' 
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K 


Nor  i?al  ization 

The  motivation  for,  and  effects  of,  different 
normalization  Lules  were  stated  nteviouslv  in  section  6.2.2. 
A tarqet  or  outout  set  must  he  such  that: 

1 - Bach  asseLtion  has  exactly  one  tatnet  ot  °ndonenous 

va l iable , 

2 - Each  vai iable  aooeais  as  the  tariet  of  exactly  one 

asset  t ion . 

i'lot  always  is  oossible  to  normalize  an  asset  tion.  Pot 
instance  the  oolynomial  eouation: 

x3  + x3"  - 2x  =0 

contains  the  tarpet  variable  "x"  'note  than  once,  therefore 
an  iterative  method  such  as  Newton-Raohson  is  tenm  tod  foi 
sol  vim  it. 

Alnoi ithms  for  selection  of  a tatnet  set  niven  an 
athittaiy  s v s t e in  of  unnoLmal  izo-i  eouations  have  been 
rooorted  in  the  litaiatuie  with  anol ica t ions  in  different 
discinlines.  Pol  instance  Steward  f.-'TT  62|  niesents  a 
method  to  obtain  a first  admissible  outout  set  and  then 
shows  how  any  othei  outout  set  can  be  dei ived  from 
relationsnios  between  a uiven  set  in'  its  loons  ot  cvrlf's. 
hater  Soyle.mez  (SOY  711  extended  the  Steward  and  Rudd 
algorithm  (RUD  64]  into  the  SWh  (Structural  analysis  '’ith 

Substitution)  algorithm  foi  solution  of  eouations  found  in 

\ 

chemical  process  desion  calculations.  Soylemez's  SWS 


i 


i 
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algorithm  reduces  systems  of  eouations  by  heuristic 
selection  of  an  output  set,  and  then  alqehtaic  substitution 
of  the  set  into  the  remaininq  eouations.  The  alqebraic 
substitution  is  carried  out  until  an  enuation  attains  a 
qiven  deqree  of  complexity,  based  on  its  number  of  terms, 
tyoe  and  deqree  of  non  1 inea r i t ies  , etc..  This  technique  can 
be  combined  with  the  moie  efficient  cvcles  nrocesor  in  MODEL 
as  follows: 

1)  Str onq 1 v-Connccted  Decomposition. 

2)  Heuristic  Reduction  of  S-C  blocks. 

a. -  Selection  of  Outout  Set. 

b. -  »enoi me  1 i za t ion . 

c .  - A 1 aebi aic  Substitution. 

3)  Generation  of  Solution  Procedures. 

- Newton  foi'  unnormalized  eouations. 

- Gauss-Seidel  foL  normalized  nonlinear  equations. 

- Matrix  inversion  for  linear  eouations. 

This  modified  version  of  the  SWS  aloorithm,  in  the 
non-or ocedur al  context  of  model  can  orove  of  advantaoe  in 
certain  enqineet inq  applications . 

MODEL  can  be  extended  to  include  anv  of  the  existino 
alqorithms  , or  allow  the  user  to  specify  his  taroet  set 
before  Drocessinq,  or  a combination  of  both.  however  any  of 
these  techniques  will  require  the  capability  to 
"renormalize''  an  assertion  previously  stored  in  the  Ar1  for 
later  code  qeneration.  A simole  alaorithm  which  take 


advantage 
asset tion 


277 

of  the  derivation  tree  structure  of  a stored 
is  described  for  such  ourooses  in  the  followinn 


sect  ions . 


6.4.1  dot mal ization  Moorithm 

The  detailed  desctiotion  of  a "derivation  tree"  (OT)  for 
an  assertion  in  MOOPL  is  given  Shastrv  f S H A 7P],  nor 
ourooses  of  statino  the  basic  algorithm  a simolified  tree  of 
a "sioole  assertion"  entry  will  Ke  used.  This  entty  is 
considered  with  the  following  format.: 


| LHS-PTn  | «IIS-PTr  I 


where 


r.HS-PT'l  is 


a oo inter  to  the 


OT  of  the  arithootic  exotes^ion 


RIIS-PTR 


in  the  left-hand-side  of  the  assertion,  and 

is  a oointer  to  the  OT  of  the  arithmetic  evotession 

in  the  rioht-hand  side  of  the  assertion. 


Symbolically  an  assertion  such  as 

C\  - r,)+c*P  = ,< 


will  be  reo resented 


as 


deoicted  in  Figure  6.7 


Svm^olic  DT  foi  an  Assertion 


Figure  6.8 

Normalized  DT  Cot  tesoondim  to  Asseition  in  Figure  6.7 


Basically  the  algorithm  requires  the  caoability  of 
takinq  inverses  of  functions  and  ooerators  in  the  lanquaae, 
checkinq  if  the  operators  are  commutative  or  not,  a 
Depth-Fitst-Search  ( OFS ) procedure  to  find  the  tarqet 


element 


in  the 


tree  and  redefining  pointers  of  mt'tt 
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elements  or  leaves. 

Each  node  of  the  tLee  oointed  by  LHS-PTR  or  RHS-PTR  is 
assumed  with  the  followinq  format: 

I OP  I p IRST-PTR  | SE;CONn-PTP  I 

where  OP  contains  tne  entrv  (ooeiatot  or  terminal  vaiiahle), 
FIRST-FTP  is  a DointeL  to  the  next  no,5e  in  the  tt.ee, 
or  NULL  if  it  is  a terminal  node,  and 

SECOND-PTR  is  a pointer  to  the  second  node  for  binaiv 
ooerators  ol  functions,  and  it  is  NULL  for  unary 
ooeiatot s and  terminal  nodes. 

The  actual  structure  used  hy  MODEL  is  much  more  comnlex, 
but  the  algorithm  can  be  stated  without  loss  of  generality 
usinq  this  simolif ication. 

The  followinq  functions  and  internal  oroceduies  ate  used 
in  describing  algorithm  NORMAL: 

INV(OP):  Search  table  of  inverse  ooerators  and  returns  the 
inverse  of  OP. 

SEARCH ( P ,T, S ) : Performs  a DFS  in  the  tree  oointed  bv  P, 
until  terminal  variable  T,  the  target,  is 
found.  Dointer  S is  set  to  the  subtree  out  of 
the  loot  of  the  P tree  that  contains  T,  or  to 


NULL  if  not  found 


CHANGE  ( Pi , P2)  : Exchanne  pointers  Pi  and  P2,  eq. 

P <—  PI 
Pl< — P2 
P2< — d 

MOVE  ( S , P , R , F ) : Node  oointed  by  p hecono1;  the  root  of  tiee 
oointed  by  P.  F is  a loqic3l  vaiiable.  If  p 
is  set  to  true  ( *1 ’b) , then  the  oointeis  of  R 
ate  set  to  the  subtler  oointed  by  p,  end  to 
the  old  toot  element  oointed  by  P 
i esoectivel v.  If  false  ('O'P),  the  fiist 
pointer  of  p is  set  to  the  old  ioot  element 
oointed  by  p,  and  the  second  oointei  to  the 
subtree  point-?'1  by  g. 

COMM (OP):  Returns  a bit  'l'n  if  OP  is  a commutative 

ooeiator,  otherwise  returns  a ’O’P..  (r.q.f  A/n  / 
P/A , therefore  COMM(V')  = ’O'd). 

A recursive  nlnorithn  NORMAL  can  now  be  described  with 

the  followinn  steps: 

Steo  1:  Search  for  the  tarqet  variable  f in  I, (IS.  If  not 
found  repeat  in  RHS.  If  T is  in  R'IS  switch  pointers 
of  LHS  with  RHS , else  the  assertion  does  not  contain 
the  tarqet  T and  there  must  b<  an  error. 

Steo _2:  If  the  root  Pointed  by  LHS  is  a terminal  node,  then 
STOP;  the  assertion  is  normalized.  Else  if  tarqet  T 
is  in  branch  pointed  bv  FIPST-PTR  Proceed  to  Steo  3. 
If  tarqet  r is  in  branch  pointed  bv  the  SECOND-PTR 


2 3 3 


check  if  the  toot  operator  is  commutative  (COMM  (OP)). 
If  so,  oioceed  to  Stem  3,  else  set  loqical  variable 
F='l*3  and  qo  to  Steo_4. 

Step  3:  Set  F='0,h  and  take  invetse  of  root  element 
( I MV (OP ) ) . 

Steo  4:  Move  toot  and  subtree  not  containing  T to  the  PHS. 

Old  RHS  tree  becomes  subtree  pointed  bv  FIRST-PTR  of 
new  RHS  root  if  F='l,(3,  oi  bv  SFCQND-PTR  if  F='0'm. 
Ste_o_5:  Pop  uo  LMS,  that  is  L4S  should  now  noint  to  subtree 
containinq  T. 

Step  6:  Reneat  Steo  1 to  Step  3. 

Fiaute  6.9  shows  the  necessarv  PL/1  code  for 
imolementim  alooiithm  NORMAL  while  Finite  6.10  oives  an 
example  of  its  application  to  an  unnotmalired  eouation. 


i 
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NORMAL : PROCEDURE  ( LHS-PTR  , RFS-PTR  ,T)  RECURSIVE 
CALL,  SEARCH  (LHS-PTR, T,  3) 

IF  S~=  NULL  THEN  GOTO  NORM 
CALL  SEARCH lrtHS-PTR,T,S) 

IF  S = NULL  THEN  STOP  /*  ERROR  */ 

CALL  CHANGE (RHS-PTR, LHS-PTR) 

NORM  : IF  ( L!IS-PTR->  F I RST-PTR  = NULL 
K LHS-PTR- >SECOND-PTR  = NULL) 

THEN  RETURN  /‘ASSERTION  NORMALIZED  */ 

IF  (S  = LUS- PTR->  F I RST-PTR  I COMM ( LHS-PTP->OP)  THEN 
DO 

F = ' 0 * P 

LHS-PTR->OP  = INV(LHS-PTP->OP) 

END 

ELSE  F = ' 1 ' P 

IF  (S  = LHS-PTR- > F IRST-PTR ) THFN 

CALL  MOVE ( LHS-PTR->SECOND-PTR, RHS-PTR , LHS-PTR , F ) 
ELSE  CALL  MOVE ( LHS-PTP->FIRST-PTF , RHS-PTR , LHS-PTR f F) 
/* — POP  UP  LHS  — */ 

LHS-PTR  = S 

CALL  NORMAL (LHS-PTR, RHS-PTR, T) 

RETURN 
END  NORMAL 


p i <1  u lo  L . 9 

PL/1  Code  foi  No t^alizat ion  Alooiithm 


R-HS 


CHAPTER  7 


lodel  Linkage  and  Cooperative  Commutation 

7.1  Introduction 

The  basic  conceptual  framework  for  the  analysis  of 

certain  processes  in  which  individual  subsystems  enioy  local 

autonomy  within  certain  system-wide  constraints  has  been 

evolvinq  from  studies  in  the  fields  of  brain  theory  and 

computer  sciences  and  referred  as  a theory  of  "cooperative 

computation"  by  Atbib  fARh  771.  The  abstract  model  assumes 

that  it  is  possible  to  exchange  information  about  individual 

processes  in  a very  hiqh  level,  without  necessarily 

describing  the  totality  of  each  subsystem  workinq  mechanism 

or  structure.  The  example  aiven  is  a scenario  of 

international  olannina  in  which  a computer  network  links 

different  countries  or  reqional  centers  so  that  decision 

makers  could  exchanqe  information  about  policies  taken  at 

different  centers,  as  well  as  about  databases  and  national 

or  reqional  models  with  different  levels  of  approbation. 

Because  of  political  realities  and  also  to  reduce  the 

complexity  of  each  center  computational  task,  a "contract" 

C(i,j)  is  defined  by  specifyinq  those  aspects  of  M ( i ) which 

are  necessary  for  the  proper  operation  of  "d  ( i ) . ’’  ( i ) in 

turn  could  be  substituted  by  ^\i)  if 
a 

i)  M(i)  sa'-.isfies  each  C(i,i)  and 

ii)  satisfaction  of  each  C(i,i)  suffices  fot  proper 

_ A . 

operation  of  M(i). 
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The  i i.i r. ; c ,nolol  presented  bv  Aibib  requires  a hiqh  level 

J 

descriptive  lanouaqe  as  well  as  mechanisms  which  will  allow 
this  interaction  throuqh  appropriate  contiacts.  with  the 

>■  advent  of  intei  nat  iona  1 computer  networks  (pi.  HR  MAR'<  III, 

1 . . 

ARPANRT)  and  distributed  coToutatiop  technoloov,  the 

hypothetical  international  olanninq  scenario  could  be  closer 
to  realitv,  yet  numerous  obstacles  tannine  from  the  spectrum 
of  different  political  realities  to  more  crude  problems  of 
nodelinn  methodoloqv  and  data  standardization  will  have  to 
be  overcome  to  achieve  that  ob-joctive.  However  in  this 
chapter  a description  of  the  LINK  world  trade  model  ( 'l ALL 
73,  KLR  76al  will  illustrate  a workinq  example  of 
cooperative  computation  which  can  be  closely  described  bv  an 
even  more  refined  abstract  model.  A reduced  form  of  the 
LINK  system  will  then  be  specified  in  ^ODRL  to  demostrate 
how  this  very  hinh  level  non-ot ocedur al  lanouaqe  can  do  used 
as  a basic  tool  from  which  a knowledqe  database  (the  "expert 
system"  in  Arbib’s  terms)  for  different  applications  can 
evolve  in  this  context. 


7.2  The  link  KoiH  Ti  a de  Nodel 


The  LINK  system  is  a lane  scale  econometric  system 
consistinq  of  seoante  models  for:  i)  20  countries,  ii) 
icqional  models  for  four  developinq  areas  and  iii)  a 
lesidual  noun  of  " i est -of -the-wor  1 d " countries*.  The 
objective  of  the  integrated  system  is  to  oioduce  better 
predictions  of  world  tiade  by  imposinq  consistency  in  the 
interactinq  variables  throuqh  a trad*-*  model  and  the  link 
algorithm.  The  conf iqui ation  is  also  used  to  study  the 
transmission  of  international  economic  fluctuations.  A 
decentralized  schema  was  chosen  for  imnlementation  since  the 
ohilosoDhy  of  the  oroject  is  that  individual  country  members 
are  responsible  for  their  models  and  in  the  best  position  to 
iudqe  local  economic  developments  as  well  as  to  recommend 
particular  structures  and  specifications. 


Each  center  in  turn  benefits  from  the  conf iouration  by 
allowinq  their  full  scale  national  models  to  be  imbedeH  into 
a consistent  scenario,  vieldina  a better  overall  performance 
of  its  aqoreoates. 


The  followinq  description  of  the  aloorithm  presently 


bml 


* The  dynamics  of  the  project  assures  that  new  countries  or 
reqional  models  ar^  reqularly  beinq  added  or  updated, 
dome  versions  have  used  reduced  form  equations  for  some 
12  other  developed  countries.  Also  the  current  system 
includes  linkaqes  between  sone  40  commoditv  models  and 
the  country  or  tenional  models.  To  avoid  unnecessary 
complications,  these  will  not  be  included  in  the  qeneral 
description.  The  structural  characteristics  of  each  of 
the  models  is  documented  in  [ WAE  761. 


— r 

|f  W*'  W". 


used  in  no  l vino  th<-  |.[MK  svsteir  will  he  l o to  illustrate  the 


natuie  of  coooer ative  commutation  involved; 

Sten_l ; Bach  center  makes  best  estimates  of  initial 
conditions  an-!  exonenous  variables  and  submits  a 
"control  solution"  to  the  LI*'K  center,  which  acts  as  a 
coordinator . 

S_teo  2:  The  coordinator  makes  final  ad -justments 

(normally  this  ohase  involves  some  translation  oiocess 
from  the  center  data  and  cade  representation  to  that 
one  used  by  the  coordinator),  and  loads  the  solution 
into  the  coordinator  database. 

Step  3:  Imoort  and  exnoit  orices  which  are  determined 
by  each  national  model  are  converted  to  merchandise 
only,  FOR  valuation,  in  current  U.S.  dollars.  T’his 
requires  exchanoe  rates,  FOR/CTF  ratios  and 
determination  of  the  "qoods"  nortion  of  noods  and 
services,  deoendinq  on  the  unit  used  bv  each  center 
national  model. 

;;ten  rt:  Fx^orts  are  determined  in  the  trade  model  from 
the  relationship 

(t)  = A*M«  (t) 

whet  e 

<d(t)  = column  vector  of  exports  in  ocriod  t, 

measured  in  constant  I’.ll.  dollars. 

\ = trade  snares  aati  ix  ( \ ( i , -i ) - (.,■))) 

<(i,i)  * merchandise  shim."«at?  from  countrv  i to 
country  i. 


|Mnw  jgggcg  ■ ~ — 


290 

=2x(i,i)  = imoorts  of  country  i 

t 

^Sft)  = column  vector  of  imports  in  neriod  t, 
measured  in  constant  U.S.  dollars. 

By  construction  the  columns  of  ft  sum  to  unity 

£ ft  ( i , i ) = 1 

i 

This  assures  that  the  basic  identity 

£ x$(i)  * (i)  = tws 

r i 

TW$  = world  exports  FOB  = world  imports  COS 
Step  5:  Impoit  prices  are  evaluated  as  column  weiohted 
aveiaoes  of  other  countries  export  or  ices. 

Since  the  identity  of  step  4 holds  also  in  current 
prices: 

(PXS (t) ) ’XS  (t)  = ( PMS (t)  ) "IS  (t ) 

where 

PX$(t)  = index  of  dollar  denominated  export  prices 
in  period  t. 

PMS(t)  = index  of  dollar  denominated  imnort  orices 
in  period  t. 


or 

( PXS ( t ) ) * AMS  ( t ) = ( ( t ) ) * MS  ( t ) 
from  which 

PM$(i,t)  = rPXS  (i,t)  A < i , i ) 1-1,2,... ,n 

L 

Step  6_:  Other  significant  interacting  variables  which 
are  direct  linkaoes  between  models  or  prouns  are 
exchamed  after  aooroot  iate  transformations  and  unit 
conversion.  These  variables  are  referred  as 
"of f-diaoonal " variables  since  they  are  exogenous  to 
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some  models  but  endoqenously  determined  bv  others. 

Stem  7 : “National  or  teqional  models  arc  successively 
re-solved  with  new  innut  values  for  exoorts  and  import 
prices,  as  well  as  off-diaqonal  variables,  as 
determined  in  steos  4 through  6. 

Steo  3:  Steos  3 throuqh  7 arc  repeated  with  new 
solution  values.  At  each  iteration  world  trade  is 
computed  as  the  sum  of  world  imooLts  (FOR)  in  current 
dollars  and  converaence  is  assumed  when  T'*?$(t)  does  not 
chanqe  from  iteration  to  iteration  more  than  a 
nreasioned  convergence  test  value.  At  this  staoe  it 
should  be  checked  that  all  country  specific  variables 
ate  also  convergent  after  reiteration.  The  consistent 
final  solution  is  stored  on  the  svstem  database  and 
used  as  laoqed  innut  values  for  the  next  Period 
sol ut ion . 


dotes:  1)  Since  the  trade  shares  matrix  dons  not  remain 

stable  over  time,  the  identity  in  stem  4 holds  only  at 
Period  "t"  and  errors  are  qenorate^  when  used  outside  the 
base  period  (VS  ( t ) = A(o)'dS(t>  + error  (t)).  Adiust^ent 

factors  are  introduced  to  account  for  export  shifts  as 
functions  of  relative  Prices: 

:<$(i)  -o((i)py$(i)  + (b  (i ) (2  a (i , i )°  'iS(i)  + i ) pcO'^c  < i ) 

+ V(i)t 


= it h row  of  A matrix  fr>i  19  70 

index  of  dollar  denominated  exnort  prices 
comeot itive  with  i 's  exports. 

While  the  train  model  equations  are  comouted  for  nach 
comnodity  noun,  the  above  equation  is  nresentlv  used  only 
for  manufactures  (SITC  5-9).  This  aonioach,  when  ntooetly 
restricted,  has  certain  analoaio<i  with  the  linear 
exoenditute  svste.i  (LF3)  and  it  is  one  of  several  schemes 


wner  e 


TO 


Ea  ( i , i ) 

j 

PC0M9(i)  = 


account  foi  shifts  in 


;;o  2 


presently  heinq  exnei iment ed  to 
o vc r tire  [CAM  77). 


"A 


M 


Then 
is  found 
th tou oh 


X 5 ( i ) ate  comouted  from  the  oievious  eouations,  it 
that  the  distribution  of  exnorts  ovei  countries 


z 


-ro 

* ( i , i ) 


i ) 
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will  not  add  to  computed  totals  Xc(i)r  therefore  a standard 
PAS  adjustment  to  the  estimated  trade  matrix  "A"  is  done  at 
each  iteration  to  assuie  complete  accountinq  balance,  with 
low  sums  addinq  to  the  estimated  exooit  totals  foi  each 
country. 


2)  The  tiade  model  eouations  weie  set  out  in  terms  of 
constant  dollars  trade  matrices.  The  model  could  also  he 
stated  in  tens  of  cuir«nt  dollars  trade  matrices  by  orice 
conversion  throuqh  weighted  harmonic  means  rather  than 
aiithmetic  means. 


It  is  interest inq  at  this  staqe  to  diaw  the  analoqv 
between  the  LINK  system  and  the  basic  model  of  coooerative 
comoutation  introduced  in  the  oievious  section.  The 
equivalent  to  direct  hilateral  contracts  (C(i,i))  are 
leduced  onlv  to  the  "of f -d i aqona 1 " re  1 at ionsh ins . Comolefo 
direct  linkaees  bv  introducinq  eouations  exolainino  «ach 
bilateral  trade  flow  have  been  found  not  practicable  at 
present,  since  information  about  those  flows  is  difficult  to 
come  by  [RHO  77).  Instead  a trade  shaies  model  is  used  in 
an  iterative  schema,  which  can  be  looked  uoon  as  an 
"intermediate"  level  process  "T" , which  receives  the 
necessary  interactinq  variables  from  each  country  "L(i,Tl" 
(i.e.,  P X $ , ) and  oioduces  a consistent  new  set  of 
interactinq  variables  "L(T,i)"  (i.e.,  XS)  for  the 
work inq  of  each  national  model. 

Direct  bilateial  contracts  are  then  substituted  by 


otooet  overall  jnifK  vints  with  an  intei  mediate  coordinator. 

A 

The  role  of  the  reduced  ocess  M ( i ) wil]  hocone  clear  while 
explainin'!  a reduced  fom  of  the  LINK  system  in  next 
sect  ion . 

Fiaure  7.1  shows  an  schematic  diaatam  for  solvin'!  the 
LINK  system  in  the  context  of  ^ODGL.  Individual  counti ies 
ate  specified  in  the  ton  layer  with  theii  cot r esoondina 
souLce  and  target  files  (''•  ( i ) = { S ( i ) , t ( i ) , A ( i ) ( , i = l to  n and 
A ( i ) is  a set  of  functions  mapoino  the  soutce  set  S(i)  into 

a 

the  tamet  set  T(i)  i.e.,  A ( i ) = ( h ( i ) --->T  ( i ) 1 , the  set  of 
asset tions).  These  national  models  ate  deoicted  as  stand 
alone  specifications  ol  "modules"  to  keep  with  the 
decent t a 1 ized  ohilosoohy  of  the  otoiect,  allowinn  "local"  ot 
isolated  solution  exoeL i.ments . Off-diagonal  relationships 
(C(i,i)  as  well  as  other  interactin'!  variables  for  the 
linkage  mechanism  (L(i,i))  are  also  indicated  by  the  arrows 
in  the  modules.  Oetailed  descrintion  of  the  linkaqe 
mechanism  is  illustrated  in  the  bottom  oatt  of  the  diaotam. 
The  actual  linkage  variables  used  !>v  t he  LINK  system  ate 
exolicitly  shown  hen.  The  countiy  "odels  will  usually  have 
export  volume  (X(i,k))  and  iroort  oi  ices  (P‘i(i,k)  as 
exogenous  or  source  variables,  whereas  assertions  will  be 
provided  to  compute  endoqenous  or  tanet  variables  for 
imoort  volume  (M(i,k))  and  export  or  ices  (PX(i,k)).  The 
subscrio  "i"  runs  over  the  countries  and  "k"  identifies  each 
SITC  commodity  irouo.  The  "inter f3ce"  modules  describe 
transformations  from  the  national  model  units  into  a single 
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and  convenient  numeraire  (U.S.  dollais)  usino  th 
exchanqe  late  (PX(i)>.  Other  transformations  to  cooe  with 

i 

nossible  CIF/FOB  valuations,  standard  disaqor eoation  into 
31TC  cateqoLies  and  common  data  oeridiocity  ■"ay  also  he 

included  in  this  nodules  toqethei  with  aonronriate  "inverse" 

\ 

transformations  from  variables  obtained  from  the  trade  model 
(v.3(i,k)  and  P'1(i,k))  back  into  national  units. 

Finally  the  trade  no  ’f>l  is  shown  with  th°  d«scr  iot  ion  of 
the  linkaqe  algorithm  and  references  to  the  stored 
soeci f icat ion  of  each  seoarate  module  in  the  system,  for 
latet  qeneration  of  a ulobal  solution  prooram  bv  the  MOOFr. 
or  ocessot  . 
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The  advantaqes  of  usim  a hiqh  level  descriptive 
lanquane  for  both  communication  between  and  about  these 
stLuctuies  as  well  as  to  nenerato  a solution  system  without 
havinq  to  set  out  the  internal  working  intricacies  of  such  a 
larpe  system  can  best  be  realized  bv  comnarina  the 
complexities  of  such  specification  in  '10DFL  with  an  exist  inn 
implementation  used  to  solve  the  LIHK  model  and  documented 
by  tnis  author  in  (GAN  76b] . Jith  that  obiective  in  mini, 
the  next  section  describes  a reduced  form  of  LINK  used  for 
lonq  term  forecast  inn . 

7.3  The  Lonq  Ru.n  Model  of  riot  Id  Trade 

LaLqe  scale  econometric  models  like  Lldk,  nose  soecial 
problems  at  different  staqes  of  model  buildinq.  Tn  trvinu 
to  apply  such  systems  to  obtain  economic  variables  for  use 
in  lonq  term  olannino,  model  builders  are  faced  with 
problems  of  structure  and  size.  '•lost  models  connosim  the 
system  are  hiqhlv  d isaqqi eoatod  full  scale  national  models 
with  an  obiective  forecastinq  horizon  of  no  more  than  three 
or  four  vears  at  the  most,  therefore  maior  sdiustments  may 
be  required  for  them  to  obtain  Predictions  bevond  this 
period.  Usinq  the  full  LINK  system  for  this  ouroose  will 
also  involve  the  extraoola t ion  of  a comolete  set  of 
exoqenous  assumptions,  a task  of  enormous  dimensions  to  bo 
oracticable.  To  avoid  these  problems,  oroiect  L1MX 
developed  a Iona  term  world  trade  model  denoted  as  MAXI  LONG 
I X LE  76b],  which  is  conceptually  equivalent  to  the  full 
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scale  LINK  svstem  ( 'AX  I LI MK ) , but  simole  sir'  raanaoeable  in 
size,  usina  only  a reduce"  set  of  eyoge nous  incuts  wnich  can 
be  easily  obtained. 


refore  describim  the  actual  set-uc  for  MAX  I LONG,  it  is 

illustrative  to  refer  back  to  the  nodol  of  cooDeiative 

a 

comoutation  and  its  reduce'"  form  otocess  element  X(i).  The 
A 

conditions  for  ’l(i)  to  substitute  ’1  ( i ) were  set  to  be  the 

A 

satisfaction  by  M ( i ) of  each  individual  contract  C ( i , -| ) , and 

that  each  individual  contract  in  turns  suffices  for  croner 
A 

operation  of  "1  ( i ) . In  the  context  of  LINK,  the  sudsvst.ems 
are  connected  via  interaction  endoqenous  and  exonenous 
variables  with  the  trade  model  (L(i,i))  and  direct 

of f-dianonal  rel ationshios  (C(i,i)).  Therefore  each  reduced 

A 

model  h ( i ) could  consist  of  only  the  necessary  equations  to 
determine  the  interactive  endoqenous  variables  (Y*£  L(i,T)) 


as  reaction  functions  of  other 


interactive  exoaonous 


variables  (X^  £ L ( T , i ) ) olus  the  trade  model  to  meet  the 
overall  system  constraints.  For  simolicity  the  direct 


off-diaqonal  relat ionsh ios  will  not  be  considered. 


The 


general  form  of  an  equation  i of  M(il  is  of  the  form: 

",  ( i , i ) = p i a ( 7.  ( i ) , v ( d ) , A ( •;  , i ) ) 

v h <?  t e 

7,  ( i , i ) - t h»  ot  ice  of  exoorts  (oi  volumo  of  imooi  ts) 
of  the  ith  1ITC  comnoUtv  groan  (1=01,  ?*,  3, 

7 ( i ) = tne  vector  of  all  endogenous  variables  in  X (i). 

X ( 1 ) = the  vector  of  all  exogenous  variables  in  M(j) 


. 


.■urtpi 




'Y 


2^9 

A ( i , i ) = vector  of  oaianetets. 

further,  max  I LONG  uses  the  same  functional  form  for  all 

A. 

eauations  ovei  M(i)  for  all  countries  a,  therefore 
Z ( i , i ) = F(Z(i),X(i),A(i,i)) 

A minimal  set  of  exogenous  variables  was  chosen  as 
consisting  of  the  nt ice  of  imports  (Pv)  and  auantitv  of 
exports  (X),  which  are  the  exoqenous  interactive  variables 
to  each  country  model.  The  equations  are  specified  as 
follows: 

/v 

Z(k,j,t)  = Ml)  + A ( 2 ) * t + £n(l)*PM(k,irt-l) 

N L*0 

+ £c(l)  *(VX(k,i,t-l)/PX(k,i,t-l) ) 

1:0 

7,  = export  orice  (PX)  or  import  volume  (*1) 

The  indices  k,i,t-l  represent  the  kth  SITC  commoditv 
oroup  for  M(i)  at  time  t - 1 respectively.  The  parameters  P's 
and  C 's  can  he  obtained  from  the  structural  models  bv 
computing  appropriate  multipliers  (refer  to  f KLF,  76bl  for 
detailed  account  of  the  calculations  followed). 

A . 

These  reduced  form  models  M(i)  will  he  used  in  the  next 
section  toqether  with  a tra^e  shares  algorithm  to  describe 


MAX  I LONG  in  MODEL 
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7.4  v,ODIi  L Dorset  lotion  of  '1  AX  I LONG 

The  soec  i f ica  t ion  foi  snlvinq  ’1AVTL0'1G  that  follows  will 
use  a set-un  such  as  the  one  described  for  sol  vino  the 
complete  LINK  system  in  Kiouie  7.1,  that  is  each  country 
module  must  be  able  to  tun  both  as  stand-alone  model,  fot 
individual  ad iustments , and  imheded  in  the  overall  world 
ttade  model  fot  consistent  solution. 

This  subsection  presents  fiist  an  overview  of  a sinole 
countiy  reduced  economic  model  followed  bv  an  inteorated 
multi-country  model.  This  is  a simplified  descriotion  of 
P1AXIL0HG,  omittino  so~e  details  that  were  not  considered 
essential,  and  which  will  be  referred  as  MINILINK. 

Piqure  7.2  ilustrates  an  individual  countrv  reduced 
model.  The  rectamulai  box  in  the  center  represents  the 
desired  orontam  fot  simulating  the  model  of  country  "A". 
Onlv  four  variables  are  Present:  the  nticra  indices  of 
imports  and  exoorts  (P‘1  and  P>!)  , the  value  of  imports  (V**) 
and  the  ouantitv  oF  exports  (VI,  where  X = VX/PX  and  vv 
reoresents  the  value  of  expotts.  PM,  and  X are  the 
exoqenous  variables.  The  data  about  these  variables  comes 
from  a data  base  named  PAW!.  The  reduced  model  of  country 
"A"  consists  of  onlv  two  equations  with  the  two  endooenous 
variables  &'[.  The  startim  year  (referred  to  as 
LINK  YP.)  and  end  veat  (PND  YP)  of  sinulation,  as  well  as  the 
values  of  the  coefficients  (ror-mir)  m '-r.  used  in  the 
structural  equations  (estimated  Previously)  come  from  an 
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The  integration  of  the  models  of  a number  of  countries 
in  MINILINK  is  shown  in  Fiqure  7.3.  The  integrated  model 
consist  of  a)  the  individual  models  of  the  countries  in  a 
foim  which  is  substantially  unchanged,  b)  a trade  model  and 
c)  the  variables  exchanged  between  the  country  models  and 
the  trade  oi  linkage  model.  All  the  variables  in  the 
integrated  model  are  endoq°nous  (which  account  for  the 
consistency  of  the  solution).  The  individual  countrv  data 
banks  provide  only  initial  values  and  laqs  to  start  the 
simulation.  The  "contracts"  between  countrv  models  and  the 
trade  model  consists  of  transmittinq  th.e  values  of  the 
var iables  PX  and  VM  and  teceivina  variables  PM  and  X.  Note 
that  the  transmitted  variables  were  the  endogenous  variables 
in  the  sinqle  country  model,  while  the  received  variables 
were  the  exogenous  variables. 

MINILINK  uses  the  TPAnftT  data  base  which  contain 
information  on  merchandise  trade  between  naitnei  countries 
for  the  year  1970  (the  trade  shares  matrices).  The 
assumption  here  is  that  the  trade  shares  will  be  constant 
throughout  the  simulation  Period.  A70  therefore  can  be 
considered  as  a constant  parameter  or  as  a new  exogenous 
V3t iable . 


r. 
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The  DANK,  INPUT  and  SOLUTION  data  bases  ate  similar  to 
the  ones  used  in  the  sinol«  countiy  model  in  Fiqute  7.2. 
The  start  and  end  oeL iods  of  simulation  will  be  as  SDecified 
in  A. INPUT  (i.e.  A. LINK  YR  and  A. LINK  MP) . Use  of  common 
data  structures  of  data  bases  by  all  the  countries  mav 
simplify  the  specification  but  different  data  structures  may 
be  used. 

In  the  following  the  specifications  of  two  prom  at 
modules  to  be  stored  in  the  YODEL  Soec i f i cat  ion  Library  is 
oiven.  The  first  is  the  specification  of  a sinnle  country 
model  for  country  "A"  in  subsection  7.4.1.  Sneci f icat ion  of 
adiitional  countiy  models  are  assumed  to  be  similar  to  that 
of  country  "A",  and  are  omitted  here.  The  NTNILINK 
specification  is  presented  in  subsection  7.4.2. 

7.4.1  Soec  i f icat.  ion  of  a ^inqle  Country  Yodel 

Fiauie  7.4  shows  the  specification  fot  Countiv  "A".  As 
described  in  Chaotei  3,  a specification  nonetally  has  throe 
Ttaior  sections:  HEADER,  DATA  DESCRIPTION  and  ASSERTIONS.  In 
the  case  of  economic  models  it  is  convinient  to  further 
subdivide  the  ASSERTION  section  into  subsections  for;  a) 
structural  and  identity  equations,  b)  relation  the  variables 
in  the  model  to  data  in  the  data  bases.  The  ASSERTION 
section  in  Finure  7.4  is  subdivided  into  subsections  of 
A J5TPUC  FOMS  (structural  equations),  SOLUTION  ASERTIONS  and 
AUXILIARY  ASSERTIONS. 
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The  HEADER  Provides  the  module  name  - A,  and  the  names 
of  the  source  files:  RANK  and  INPUT,  and  the  tarpet  file: 
SOLUTION.  This  col  responds  to  the  bloc'<  dinar  am  in  Fioure 
7.2  foi  the  model  of  Countiv  "A". 

The  DATA  DESCRIPTION  section  contains  a)  desci lotions  of 
the  data  bases  (HANK,  INPUT  and  SOLUTION)  h)  subscripts  and 
c)  interim  variables.  RANK  is  a data  b®se  that  contains 
economic  statistics  of  the  countrv.  It  consists  of  records 
(referred  to  as  TIM  3FR),  each  cor  respond  inn  to  a tin® 
set ies  foL  one  economic  variable.  The  record  contains  a 
number  (NUMBER)  cand  a label  (LABEL)  identifvinn  the 
variable,  followed  bv  the  data  of  the  time  series  (DATA). 

In  line  10  starts  the  description  of  the  INPUT  file.  As 
shown,  it  contains  one  record  named  CONTROLS  which  contains 
LINK  YP,  the  start  veai  for  the  simulation,  LINK  N P , the 
number  of  periods  to  be  simulated,  and  finallv  CQKFF , a list 
of  the  values  of  the  Previously  estimated  coefficients  for 
the  structural  eouations. 

The  ''escrintion  of  SOLUTION  file  starts  in  line  IS. 
This  is  a revolt  and  each  tecord  in  this  file  corresponds  to 
a lin®  in  the  report.  Pot  each  period,  the  reoort  will 
consists  of  i mourn  of  records  named  PERIOD.  PERIOD 
contains  a MEAD.ES  i®cord  (line)  namim  the  vaiiouc'  column 
headings,  a line  foi  each  COUNTRY  •/ i t h th®  otic®  p and  value 
V,  concludina  with  a TOTAL  tecord  which  mives  T:l,  the  total 
trade  for  the  period. 
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/*  SPECIFICATION  OF  MODEL  Op  COUNTRY  "A"  */ 

SEC  HEADER 

1 MODULE:  A; 

2 SOURCE  FILES:  BANK , INPUT; 

? TARGET  FILE-:  SOLUTION ; 

SEC  DATA  DESCRIPTION 

I DISK  IS  MEDIA (UNIT=3330)  ; 

5 BANK  IS  FILE  ( DI SK , OPG=S EQ , KE Y=NUMRFR , FORM AT  = F I X ED ) ; 

6 TI‘1_SFR  13  RECORD ( BANK , (5,4)  ) ; 

7 MUMMER  IS  FIELD  (TIM  >ER  , NU'1  ( 4 ) ) ; 

B LABEL  IS  FIELD  ( TI M_SER  , CHAR  ( B ) ) ; 

9 DATA  IS  F I ELD (TIM  SEP , DEC ( 1 4 , 5 ) , ( 20 ) ) ; 

1(1  INPUT  IS  FILE  (DISK,  ORO=SEC,  FORM  AT  = F I XT'D ) ; 

II  CONTROLS  IS  RECORD  (INPUT,  (M  ) ; 

12  LINK  YR  IS  F IELD (CONTROLS , NUM ( 4 ) ) ; 

13  LINK  NP  IS  FIELD (CONTROLS, NUM (4) ) • 

14  COEFF  IS  FIELD (CONTROLS , NUM ( 4 ) , (12) ) ; 

Fiqute  7.4 

Specification  of  Country  "A"  Reduced  Economic  Model 
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15  SOLUTION  IS  REPORT (DISK , OFG=SEQ, FORMAT=VAR I ABLE ) 

16  PERIOD  IS  GROUP (SOLUTION , (LINK  YR: END  YR) ) ; 

17  HEADER  IS  RECORD ( PERIOD , ( 1 )) ; 

18  TIME  IS  FIELD(UEADER,CHAR(10)  ) ; 

19  NAME  IS  FIELD (HEADER, CHAR (20) ) ; 

20  PRICE  IS  FIELD (HEADER, CHAP (20) ) ; 

21  VALUE  IS  FIELD (HEADER, CHAR (20) ) ; 

22  COUNTRY  IS  RECORD ( PERIOD ,( NO_CNTRY) ) ; 

23  FILLER'  IS  FIELD (COUNTRY , CHAR ( 1 0 ))  ; 

24  CNTRY_NAME  IS  FIELD (COUNTRY , CHAR ( 20 )) ; 

25  P IS  FIELD(COUi:TRY,PIC  ' (14)  Z.V(5)  9 ’)  ; 

26  V IS  FI  ELD ( COUNTRY ,PIC*(14)Z.V(5)9')  ; 

27  TOTAL  IS  RECORD ( PERIOD ,( 1 )) ; 

28  FILLER  IS  FIELD (TOTAL, CHAR ( 50) ) ; 

29  TW  IS  FIELD (TOTAL ,PIC'(I4)Z.V(5)9'); 

Fiquie  7.4  (continued) 
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/*  SUBSCRIPT  DESCRIPTIONS  */ 

30  T IS  SU3SCR I PT ( PERIOD , LINK ^YR , END  YR , 1 ) ; /‘SOLUTION 

TIME*/ 

31  I IS  SUBSCRIPT (COUNTRY, 1 , NO  CNTR  Y , 1 ) ; /‘COUNTRY*/ 

32  K IS  St)3SCRI  PT  (TIM  SER,  1 , 4 , 1 , 2)  ; /*STTC  CATEGORY*/ 

33  DT  IS  SUBSCRIPT! DATA ,1,20,1) ; /*DATA  TIME*/ 

/*  INTERIM  VARIABLES  */ 

34  PM, X ARE  INTERIM! (20,4)  ,DEC(14, 5)  ) ; /‘EXOGENOUS 

VARIABLES*/ 

35  PX,VM  ARE  INTERIM (( LINK  Y R : E N D YR , 4 ) , DEC ( 1 4 , 5 ) ) ; /* ENDOG 

VARIABLES*/ 

/*  INTERIM  AUXILIARY  VARIABLES  USED  TO  SPECIFY 
SOLUTION  FILE  DATA  */ 


Fiquie  7.4  (continued) 
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36  X09  IS  INTKRIV  ( ( LINK  Y”:ENO  YR)  , DEC  (14,5)  ) ; 


SEC  ASSERTIONS 

/*  ASSERTIONS  FOR  RELATING  A. SANK  DATA  TO  EXOGENOUS 
COUNTRY  "A"  VARIABLES  */ 


37  A . PM ( DT , K ) = A. DATA ( l ,k , DT) ; 
33  A . X ( DT , K ) = A . DATA ( 5 , K , DT ) ; 


SEC  A GTRUC  EONS 

/♦REDUCED  COUNTRY  "A"  NOOEL  STRUCTURAL  EQUATIONS*/ 

39  A.VM  (T,K)  = A.COF.FF(l)  + A.COFFF ( 2) *T 

+ A.COFFF ( 3) *A.PM(T,K) +A.COEFF ( 4 ) * A . PM (T- 1 , K ) 

+ A.COEFF(S)  M.X(T,X)  + A.  COF FF ( 6) *A . X (T-l , K ) ; 

40  A . PX (T , K ) = A . COEFF ( 7 ) + A.COFFF ( 3) *T 

+ A. COEFF  (9)  * A . P'1  ( T , K ) +A.  COEFF  ( 1 0 ) * A . PX  ( T- 1 ) , K ) 
+ A.COFFF ( 11 ) *A.X(T,K)  + A . COEFF ( 1 2 ) * A . X (T- 1 , K ) ; 


Fiqtue  7.  a (continue.-)) 


310 


SEC  SOLUTION_ASSERTIONS 

/*  ASSERTIONS  FOR  DATA  IN  SOLUTION  FILE  */ 

41  TIME (T)  = T; 

42  NAME ( T)  = * NAMF  ' ; 

43  PRICE (T)  = 'PRICE  OF  EXPORTS'; 

44  VALUE (T)  = 'VALUE  OF  IMPORTS'; 

45  CNTPYJNAME (T, I ) = 'A'; 

45  X 0 9 ( T ) = SUM (X (T , K ) , K ) ; 

47  P ( T ) = SUM(PX(T,K)*X(T,K)/X09(T) ,K) ; 

48  V ( T ) = SUM (VM ( T , K ) , K) ; 

49  TW|T)  = V ( T ) ; 

/*  AUXILIARY  ASSERTIONS  */ 

50  ENO_YR  = LINK  YR  + LINK  NP; 

51  NO  CNTRY  + 1; 


Flame  7.4  (continued) 
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The  temainim  oaits  to  be  specified  in  the 
DATA  nE5CtfIPTI0N  section  are  the  S'l^^ci  lots  m l intei  im 
vat  tables.  The  subset  lots  ate  described  in  linos  an  thtouoh 
33  in  f i q u t e 7.4.  ‘bibsciiots  ate  fiee  variables  intente'i  to 
exoioss  indices  of  ele^nfj  in  at  t avs.  The  co~o\et« 
specification  cot  a subset  lot  conn  into  oc  five  oat  a<netei  s 
enclosed  in  oar  enthesi<= : l)  the  na^e  of  the  ait  ay  whete  the 
subset  lot  may  be  used  to  ienote  an  in-,ov  of  an  pln^ont  , 2) 


the  lowei 

bound 

that  a subset i 

ot 

mav  attain. 

3) 

the 

cot  t esoond 

ino  non 

e t bound,  4 ) t 

he 

steo  size 

used 

in 

i net  ement i 

no  (ot 

decie'-ontinn ) 

toe 

subset iot , 

S) 

the 

o i mens  ion 

number  , 

when  the  at  l av 

i s 

of  '’intension 

q t e a t.  e r 

than  one.  Pot  instance  the  mnemonic  ? (Fot  tire)  in  line  30 
vill  oe  used  as  a subset  iot  of  t!>'»  aitay  PFPI  Dn  in  the 
dOUJTJOM  file.  Tl’e  lowet  bound  is  LlJ'i  Yr> , the  start  im 
yeat  fot  the  "ioulation.  The  u-'oet  hound  is  E'lQ  Y'>,  the 

last  yeat  fot  the  simulation.  jirilatly  the  other 

sunset  iots  at0  defined : I to  exoioss  an  index  fot  the 
countty,  K fot  eacn  3ITC  comno-^itv  mono  an  i brp  for  a vear 
in  the  time  seties  (DATA)  entiles.  Tn  the  pyn^ole  thei»  ate 
20  options  fot  DATA  ani  4 cor.To^itv  otouos.  iotc  that  when 
a subset  iot  is  use')  to  denote  indices  o<"  several  attavs,  it 
nerds  to  be  ^escribe  d onlv  once.  ."he  '"Oppr,  system  will 

automatical lv  ntoomate  it  to  the  othet  attavs  bas-i  on  use 

of  subsciiots  in  assettions. 


Intel  in  vatiahlos  ate  divides  into  thine  qtaims: 
Exogenous,  En  looenous  and  Auxiliary  v.u  tables.  As  noted 


'"'F" ■■■ 


■r  - 
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before  PM  and  X ate  the  exogenous  variables  representim 


price  index  of  inoorts  and  quantity  of  exoorts, 
i fisoec t i vo 1 v«  The  endogenous  vaiiabies  ate  PX  and  VM , 
teoiesentinq  the  ol ice  index  of  exports  and  value  of 
innorts,  resoectivel v.  Finally  to  obtain  the  total  value  of 
exooits  V lopoited  in  SOLUTION  it  is  necessary  to  sun  X ovei 
all  SITC  comnoditv  qtouos.  This  sun  is  denoted  by  X09. 


The  next  section  in  Fiqure  7.4  is  that  of  ASSFPTIOMS. 
The  fiist  qiouo  consist  of  the  assertions  in  lines  37  and  7ft 
that  relate  the  exooenous  variables  to  the  data  orovided  in 
MAMK.  The  second  nrouo  of  assertions  correspond  to  the 
structural  equations  of  the  "nodel  for  country  "A".  These 


in 


c-itpqoi  ies . Note  that  in  line  49  the  vaiiable  TW  leoiosents 
total  tiale  of  the  countiies,  and  is  set  to  V in  this  case 
as  onlv  one  countiv  is  included  in  the  'roiel.  Finally  line 
90  shows  that  END  YP,  which  is  a vaiiable  used  to  denote  the 
last  yeai  of  the  simulation,  is  eoual  to  the  stutino  veai 
(LINK  YP)  ol  us  the  numh*u  of  dpi iods  (U  IK  NP)  . 

7.^.2  Soecif icat ion  of  the  iiado  Model:  IT''IM'JK 


s i .?  i 1 a i t o 

the  previously 

described  s 

oec i f icat ion 

f Ol 

Counti v "A" , 

the  MINT f INK 

soeci f icat • on 

in  Fioute 

7.9 

consists  of 

sections:  »IF 

AOER,  n \ rA 

DESCRIPTION 

an^ 

ASSERTIONS. 

The  HEADER  section  sr*ecifies  the  nam  of  the  >ao  lulo , the 
souice  daf  and  taioet  lata.  These  coiiesoond  to  the  block 
•Usn  ia>n  in  Pi  out  * 7.1.  In  aAAi  * ion  t^eto  a Ffr 

:"t  i to  tie  n t in  1 i p.<-  4.  This  is  to  include  t y 

soeci  f icat  ion  or  1 1" I LINK  data  m 1 it  nt  t inna  oieviouslv 
specified  roi  the  nodules  of  in1:  /:  !u  1 1 count  i in  -, . 
sections,  statements  an’  the  it  oi  oo  viat  «>e  that  u • t ef»>t  i ' 
to  ate  cooio  a from  nieviouslv  soecified  'O'Ui  l>*s  an*  included 
automatical  1'/  in  the  nodule. 

The  soeci  f ication  of  MINIL INK  in  Eioute  7.9  shows 

inteoiation  of  only  two  countiv  nodules,  "a"  m 1 "r‘". 

Additional  countiv  modules  coulH  nave  ’•pen  included  as  well 
thiouih  ieretencinu  of  theit  ’ota  1 ' a s *,  s a^d  assettions  in  a 
si  rilu  -annei  in  the  PtiFK’?  stat»f'>nt . >?ot  masons  of 
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bievity  additional  countiy  models  have  been  omitted.  The 
DATA  DRSCR I PTION  section  needs  not  include  the  files 
referenced  in  the  REFER  statement  in  the  header.  The  only 
new  data  base  added  in  d I '4 1 L I *4 '<  is  'mpAOAT  as  shown  in  lines 
5 to  7.  TRADAT  consists  of  a sinqle  record  named  SHARE 
which  contains  the  matrix  of  trade  shares  from  countiy  to 
country,  and  for  each  SITC  commodify  otouo.  This  is 
therefore  a three  dimensional  array. 

The  DATA  DFSC°IPTION  section  includes  in  lines  R throuoh 
12  descriotions  of  the  subset ints,  and  in  lines  13  throuqh 
17  the  descriptions  of  th«  interim  variables. 

The  ASSERTIONS  section  consists  of  several  qrouos  of 
statements.  The  first  orouo  soecifies  the  simulation  oer iod 
(tire  number  of  Moments  in  the  solution  array)  and  the  total 
number  of  countries  (NO  CNTRY) . As  shown  the  starting  veai 
of  the  simulation  and  the  nunber  of  oer iods  to  simulate  will 
be  accented  from  A. LINK  YR  and  A. LINK  NP,  the  inout  to  the 
country  "A"  model. 

The  two  next  mourns  of  statements  soecifv  the  relations 
of  the  linkaoe  variables  to  the  trade  model.  These  are  the 
variables  which  are  common icated  between  components  of 
MINILINK.  These  relations  ate  stated  in  lines  21  throuoh 
2R.  Initial  laqq«d  values  for  tne  ouantitv  of  exnorts  are 
soecified  in  lines  2R  throuqh  12.  Finally  the  assertions 
for  the  endooenous  linknqe  variables  at  oiven  in  lines  33 
throuoh  35.  The  ASSERTIONS  section  concludes  with  the 
J 

I 

A 

*■. f 
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assertions  specifyim  the  relationships  of  the  variables  in 
the  SOL'JT In'J  file  to  the  variables  in  the  linkaqe  model. 

In  surtai v»  the  soecifi cation  state  a? sett  ions  which 
relate  variables  in  various  submodels,  one  to  the  others, 
ani  variables  m source  and  tarqet  data  bases  to  the 
variables  of  the  models.  In  addition  the  linkaqe  pnuat ions 
are  also  Provided.  "otice  that  each  count iv  model  equations 
and  their  respective  data  bases  u°  incorporated  without 
chance  by  refer  tine  to  then  in  th«  pepm  statement  in  line 
4. 
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/*  SPECIFICATION  OF  MINILINK  */ 

SFC  HEADER 

1 MODULE:  .MINI  LINK; 

2 SOURCE:  A. RANK  , 13  . RANK  . INPUT  , R . INPUT  /TRADAT  ; 

3 TARGET : SOLUTION ; 

4 REFER;  A. SANK ,3. RANK, A. INPUT,?. IN  PUT , A . SOLUTION , 

A. A STRUEQMS , B . R STRUC  EONS; 

SEC  DATA  DESCRIPTION 
DISK  IS  MEDIA (UNTT  = 3330)  ; 

5 TRADAT  IS  FILE  (DISK, ORG=SEQ, TORN AT=FIXED)  ; 

6 SHARE  IS  RECORD (TRADAT)  ; 

7 A70  IS  FIELD (SHAPE , (NO  CNTRY , NO  CMTRY , 4 ) ) ; 
/*  SUBSCRIPT  DF.SCRI  DTIONS  */ 


8 

T 

IS 

SUBSCRIPT ( PERIOD, A. LINK 

YR , END 

YR , 1 ) ; /‘SOLUTION 

TIME*/ 

9 

DT 

IS 

; SUBSCRIPT ( DATA, 1,20,1 ) 

/♦DATA 

TIME*/ 

10 

I 

IS 

SUBSCRI PT ( A70 , 1 , NO  CNTRY 

,1,1) ; 

/♦COUNTRY*/ 

11 

J 

IS 

SUBSCRIPT (A70, 1 , NO  CNTRY 

,1,2) ; 

/♦COUNTRY*/ 

12 

K 

IS 

SUBSCRIPT (A70,l, 1,1,3); 

/♦SITS 

category*/ 

Fiqute  7.5 

Sneci f icat ion  of  MINILINK 


* / 


/*  r-\C'i  country  onoogrno'js  inter  r'  vast arles  */ 


A i? ,r  INTE°IM 


V'  n 


I MTR  ° I M 


(010(14,  4)  , ( LA1- 


ri(OFC(l  *,5)  , C-JO 


17  V‘1  LOO  I 


Fiaut'-*  7.5  (continue!) 
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SEC  ASSERTIONS 

/*  DATA  REPETITION  ASSERTIONS  */ 


18 

END  YP  = 

> 

• 

t—i 

Ps 

YR  + A. 

19 

LAG  YR  = 

A.  LINK 

YR  - 1; 

20 

NO  CNTRY 

= 2; 

/*  ASSERTIONS  LINKING  EACH  COUNTRY  i7 ITS  MINILINK  */ 
21  VN  L ( 1 , T , K ) = A.VM(T,K); 

2 2 V-1 L ( 2 , T , K ) = H . VM  ( T , K ) ; 

23  PXL ( 1 ,T , K ) = A . PX ( T , K ) ; 

24  PXL ( 2 , T , K ) = B.PX(T,K) ; 

/*  ASSERTIONS  LINKING  MI JILINK  TO  EACH  COUNTRY  */ 

25  A.Y (T,K)  = XL( 1 ,T,K) ; 

26  3 . X ( T , X ) = XL ( 2 ,T , K ) ; 

2 7 A . PM ( T , K ) = PM  L ( 1 , T , K ) ; 

28  R , PM (T , K ) = PML(2,T,X); 


Fiquie  7.5  (continue^) 


/*  ASsi:r> rio--3S  ro  include  initial  lac-5  */ 


2 A 

A.X (LAO  Y P , K ) 

= A. DATA ( 5, K, LAC 

Y»)  ; 

30 

7.X  (LAC  YP,!<) 

= B.  OAT  A ( 5 , K , LAG 

YP)  ; 

31 

A. PI  ( LAG_ YR,K) 

* A. DATA ( 1 . K. LAC 

Yt  ) ; 

32 

(2.  PM  (LAC  YR,K) 

= P. DATA (1,0, LAC 

YP)  ; 

/*  ASSERTIONS  FOR  >7N  DOSE  NO '1:5  LI  7 \P  I * -5  L>5 

3 3 VXL(I,T,K)  = CU'1(A70(I,J,K)*V.’1L(  J,T,  N)  ,.J)  ; 

31  PML(.7,  r,<)  = SUC(PXL(I,T,K) *A70(  r,  1,K)  ; 

35  XL ( I , T , K ) = VXL( I ,T,K) /PXL( I ,T,K) ; 

/*  ASSERTIONS  FOP  SOT, ’O’ ION  vV5I'MLCc;  */ 

75  PRRI)O(T)  = T; 

37  0 A NO  (,T ) = * NAME, 1 ; 

33  PRICE  (T)  = ’ PP ICE  1-1  PORT  1 ; 

3p  v\lue  (?)  - "'/aut  in  port'; 

4 P C 'TRY  MAV'F  ( T , n = I ; 

41  V’.LOA  l I ,T)  = ot'N(>'’nj(I,T,K)  ,-')  ; 

42  P ( r , r ) = su-1  ( p'-jr,  ( 1 ,t,K)  *VML(T  ,T,R)  / VM.TM  I ,T) 
4 3 7(1,  1 ) = oiP'(V<(,(  r ,T,K)  , K ) ; 

4 4 T ’(D  - 3i!'l(7(I,  D ,D  ; 


FItijic1  7.5  ( cn-i  t i n ur-  4 ) 
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7.4.3  Summaiv  of  Soec  i f ic3t  ion  of  Integrated  Models 

As  shown  each  individual  country  model  soec i f icat ion  as 
wn l l as  the  sneci f icat ion  of  MINILIMK  ate  entered  into  the 
MODEL  soeci  f icat  ion  library.  Each  one  of  these  modules  when 
submitted  to  the  MODEL  svstem  will  result  in  generation  of  a 
computer  otoqtam  ootimized  for  the  specific  outnose  of 
simulating  the  respective  model.  In  the  example  ahov° , 
programs  for  the  simulation  of  Country  "A",  "h"  and  MIMILINK 
will  be  obtained.  Fach  of  these  specifications  recruited 
approximately  50  statements.  The  resultino  PL/1  otoatams 
would  consists  of  an  older  of  magnitude  larger  number  of 
statements . 

Mote  that  the  specifications  could  be  composed 
inci ementally  with  the  svstem  addressing  messages  to  the 
user  to  indicate  additions  needed  and  the  user  responding  by 
composing  the  statements  that  ate  required.  Also  many  of 
the  statements  shown  could  be  generated  automatically  nased 
on  analysis  of  the  previously  entered  statements.  The 
documentation  of  the  specifications  to  be  produced  by  MODEL 
will  include  many  additional  statements  fot  each  one  of 
these  modules,  that  can  be  used  to  further  verify  the 
intention  of  the  user. 

Upon  submission  of  the  TRADE  module  fot  execution  by  the 
MODEL  otocessor,  the  comolete  specification  will  be  analyze^ 
and  simultaneous  assertions  reported  to  the  user.  It  will 
be  then  necessary  to  soecify  the  initial  values  and 


convet  oence 
1 if. t i n 'j  of 
list! no  an  3 
foun  1 to  ue 
included  at  e 
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criterion.  Aooendix  c = hows  tne  comnleto 
the  'ITWILI’JK  exanole , includino  tne  source 
‘•iOOtr.  neneioted  stitc^nt",  tnos»  assertions 
simultaneous  and  the  formatted  renort.  M so 
the  cross-reference  ant  otecedenco  t oo  t t ^ , 


The  linkaqe  algorithm  described  by  the  assertions  in 
r inure  7.a  i s similar  to  the  i nolem«ntat ion  of  the  "constant 
value  shares"  version  as  ^esnihet  in  [".Vl  76b).  Pot  other 
1 inkaoe  alootxthrs  (re  LL  3 ) , it  is  necossa i v to  lmnlesient  a 
function  PAS,  to  irrfor  a st.sndm  1 PA  :j  .v-' iustoent . Such 
function  can  be  inn le^onte a with  the  following  oar  aTTietet  s : 


' = datr iv  witn  initial  conditions  in  each  element 

o 

(Mi/a)).  After  orocossim  1 will  contain  the 
adjusted  ..intents  " ( i , i ) . 

P = "tow  total''"  vector 
C = "column  totals"  vector 


CHAPTER  8 


Usinq  MODEL  for  Reqiession  and  Statistical  Analysis 
8.1  Genet al  Aporoach 

Within  tne  methods  of  statistical  inference,  estimation 
of  parameters  and  subsequent  tests  of  siqnificance  of  these 
estimates  olav  a ctucial  tole  in  model  buildinq  activity. 
The  advantaqes  of  usinq  a non-piocedui a 1 lanquaqe  in  this 
staqe  aie  similar  to  those  nteviously  stated  for  the 
qeneration  of  simulation  and  data  transformation  otoqrams  in 
qeneral.  While  a variety  of  advanced  statistical  techniques 
have  been  developed  and  experimented  with  lately,  it  is 
still  difficult  foi  an  econometrist  to  obtain  easy  access  to 
their  computer  implementation.  It  is  even  more  difficult  to 
combine  existinq  procedures  into  a consistent  estimation 
system. 

In  qeneial  existinq  estimation  software  falls  into  two 
cateqories;  the  first  one  consistinq  of  hiqh  level 
interactive  or  command  oriented  lanquaqes  which  ate  user 
oriented  but  whose  procedures  are  qiven  as  "black  boxes" 
which,  except  for  the  stLaiqhtfoiward  methods,  may  cause 
problems  of  interpretation  to  the  unaware  user.  This  can 
qenetally  be  solved  with  proper  documentation.  However  a 
mote  serious  disadvantaqe  is  their  lack  of  flexibility  to 
incoioorate  new  techniques  or  to  combine  existinq  ones. 
Tyoical  examples  of  lanquaqes  in  this  cateqory  are  PLANETS 
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and  T'JP.  The  second  qrouo  include  those  ptoqtams  develooed 
to  cauv  out  specific  estimation  mocedui.es  and  ate  normally 
wLitten  in  a hiqh  level  procedural  lanquaoe  such  as  FORTRAN, 
APL  ot  PL/1.  These  oackao^s  ate  normally  develooed 
"in-house"  by  diffetent  modelinq  centets  in  otdet  to  solve  a 
particular  aoplication  nee'1,  consequently  thete  is  lack  of 
standat ization  and  thetefoLe  it  is  difficult  to  combine  ol 
inteqtate  them  without  a substantial  labot  intensive 
investment.  A oronrammim  lamuane  is  not  the  natutal  media 
fot  an  econometrist  to  teotesent  his  algorithms,  hence  it  is 
also  difficult  fot  him  to  unveil  the  semantics  of  a comoutei 
procedure  ot  to  communicate  about  it  with  a otoorammer. 
'lost  estimation  technioues  can  be  constructed  atound  a 
teduced  set  of  basic  buildinq  blocks;  howevei , because  of 
the  individualistic  aoptoach  to  via  otncedutal 
lanquaqes,  substantial  '’uni  icat  ion  exists  in  diffetent 
centets  usinq  stand  alone  oackaqes  for  theit  estimation  and 
statistical  analysis  requirements. 

A notable  exceotion  to  the  above  mentioned 
chat actet  istics  of  most  estimation  kits  ot  lanquaqes  to  be 
considered  is  the  case  of  the  MRER  TROLL  system  [TRO  73], 
where  a coheient  and  consistent  set  of  estimation  procedures 
has  been  implemented  usinq  a qenetalizel  anoroach  TEIE  73]. 
The  inteqratea  system  is  built  around  basic  ooerations, 
which  are  runctionallv  oroanized  as  separate  entities,  which 
can  be  combined  toq^ther  in  coninnction  with  an  otdet inq 
otoceduio  to  movidc  meaningful  statistic?;.  TROLL  functions 
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are  built  around  a least  sauates  procedure,  sets  of  data 
1 1 ansf or mat  ions  and  statistical  analyses.  They  include: 

1. -  An  OLS  otoceduie  for  eithei  lineai  or  nonlineai 

enuat ions . 

2. -  Distributed  lag  oneiatois. 

3. -  Instrumental  variable  estimation. 

4. -  Sinqle  equation  Generalized  Leas*  Squares  (GLS) 

error  correction. 

5. -  A standard  set  of  statatistics  based  on  the 

observed  residuals  as  well  as  the  coefficient 

covariance  matrix. 

Pronet  selection  and  combination  of  these  procedures 
suffices  to  produce  standard  sinqle  equation  techniques  such 
as  TSLS  or  autoregressive  adjustments. 

The  basic  ordering  used  when  different  procedures  are 
combined  is  as  follows: 

(1)  Generalized  Least  Sauates  transformations. 

(2)  Instrumental  variable  substitution. 

(3)  Polynomial  distributed  laa  operators. 

(4)  OLS  as  applied  to  linear  or  nonlinear  equations. 

The  approach  to  estimation  followed  by  MODEL  is  twofold: 
first  it  extends  the  lancuaoe  by  introducinn  the  necessary 
primitive  functions  and/or  operators  which  will  allow  the 
user  to  generate  the  desired  estimation  ptonram  from  the 
mathematical  description  of  the  procedure  or  algorithm. 
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Secondly,  some  estimation  oioce^uces  can  be  diiectlv 
implemented  to  onei-ate  into  a sinqle  oi  simultaneous  set  of 
assertions  by  'nonet  identification  of  the  methods  usinn  the 
SOLUTION  neader  parameter  of  an  assertion. 

dy  extending  the  lanquaoe  throuqh  functions  and/or 
operators,  MOOkL  can  made  isomotohic  vith  the  alqebraic 
lanquaue  with  which  a model  builder  is  accustomed  to 
represent  his  computation  reauirements.  It  is  therefor^ 
oossible  to  oenorat-m  anv  desired  estimation  otootam  from  th<^ 
user  non-orocedur a 1 specification.  The  second  approach  is 
mote  user  oriented,  in  the  sense  that  it  permits  hi"  to  keen 
visible  the  structural  ten resent a tion  of  the  functions  whose 
parameters  he  wishes  to  estimate,  but  the  process  itself  is 
transparent.  In  this  latteL  case  the  processor  is 
responsible  for  checkim  the  consistency  and  completeness  of 
parameters  and  solution  otocedutes  requital. 

This  mixed  approach  is  ex  mooted  to  rive  ireater 
flexibility  and  qeneialitv  as  well  as  savings  in  the 
software  development  process.  The  next  sections  describe 
the  necessary  extensions  and  desinn  Tothodolonv. 

3.2  Nome  Useful  functions 

■lodel  nui  Mine , statistical  and  temession  analysis  as 
well  as  I noi.it -Out nut  computations  make  extensive  use  of 
matrix  aMebta  in  iesctibim  concisely  its  calculations. 
Therefore  it  is  convenient  to  «*xtrtnd  the  scalar 
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characteristics  of  MODEL  to  cope  with  general  matrix  and 
vector  operations.  Ideally  one  will  like  to  include  vector 
and  matrix  operators  such  as  those  found  in  the  APL 
proqtamminq  languaqe  (IVE  62],  but  in  the  non-procedural 
context  of  the  MODEL  processor.  The  following  basic  list  of 
MODEL  matrix  manipulation  functions  can  be  used  for  that 
purpose : 

Function:  R = MATMLT ( D ] (A,R,K,L,M) * 

Purpose : Matrix  A is  postmultiplied  by  matrix  B.  The 

standard  matrix  product  R = A*B  is  performed,  i.e.,  element 
R(i,k)  is  the  scalar  product  of  the  ith  row  of  A with  the 
kth  column  of  B. 

Arguments : 

A ( K , L)  - BINARY  FLOAT ((53)];  given  K by  L matrix  A 

(left-hand  factor). 

B ( L , FI ) - RINARY  FLOAT]  (53)];  given  L by  M matrix  B 

(riqht-hand  factor). 

K - BINARY  FIXED;  tow  dimension  of  A and  R. 

L - BINARY  FIXED;  column  dimension  of  A and  row  dimension  of 

B. 

M - BINARY  FIXED;  column  dimension  of  B and  R. 

Returns : 


* Optional  expressions  in  square  brackets  "(]"  indicate  the 
double  precision  alternative  function.  The  code 
generation  phase  should  produce  necessary  attribute 
declarations  for  user  supplied  parameters  when  they  are 
not  in  agreement  with  the  arguments  of  the  function  and  a 
tr ansfor mationn  is  possible.  This  is  done  via  the  ENTRY 
statement . 
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R(K,M)  - BINARY  FLOAT((53));  resultant  K by  M product 
mat i ix . 

Function:  R = MINV(D)  (A, N, ZERO) 

Put  pose : Inverts  a general  square  matrix  A. 

Arguments : 

A ( N , N ) - BINARY  FLOAT[(53)];  given  N by  N general  matrix  A. 
N - BINARY  FIXED;  order  of  matrix  A. 

ZERO  - BINARY  FLOAT[(53));  given  constant  with  which  the 
determinant  is  compared  for  singularity  test.  If 
the  given  value  is  zero,  the  function  assigns  the 
value  10E-5  if  sinqle  precision  or  10E-15  if  double 
precision  is  used. 

Returns : 

R(N,N)  - BINARY  FLOATf(53)l;  resultant  square  inverse  matrix 
of  A. 

Function:  R = TRANS  P [ D | (A,M,N) 

Purpose : Transposes  matrix  A. 

Arguments : 

A (M,N)  - BINARY  FLOAT[(53)];  given  M by  N matrix  to  be 
transposed. 

M - BINARY  FIXED;  tow  dimension  of  A and  column  dimension  of 

R. 

N - BINARY  FIXED;  column  dimension  of  A and  row  dimension  of 

R. 

Retut  ns : 

R(N,M)  - BINARY  FLOAT((53)J;  the  transpose  of  A. 


w rrmrr  i 
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Function:  R = EIGVAL ( D ] (A,N) 

Pul  pose : Computes  eigenvalues  of  symmetric  matrix  A. 
Arguments : 

A (N  ,N)  - BINARY  FLOAT! (53)];  given  square  symmetric  matrix. 
N - BINARY  FIXED;  order  of  matrix  A. 

Returns : 

R ( N ) - BINARY  FLOAT! (53)];  eigenvalues  of  A are  returned  in 
vector  R. 

Function:  R = EIGVEC (D]  (A,N) 

Purpose : Computes  eigenvectors  of  symetric  matrix  A. 
Arguments : 

A ( N , N ) - BINARY  FLOAT!  (53)];  given  square  symmetric  matrix. 
N - BINARY  FIXED;  order  of  matrix  A. 

Returns : 

R(N,N)  - BINARY  FLOAT! (53)];  eigenvectors  of  matrix  A are 
returned  in  matrix  R. 

Function:  R = MOMENT ( D ] ( A , M , N ) 

Purpose : Computes  moments  of  matrix  A.  That  is  calculates  R 
= A 'A.  This  function  takes  advantage  of  symmetry  found  in 
the  computation  of  moments. 

Arguments : 

A (M , N ) - BINARY  FLOAT! (53)];  the  given  M by  N matrix,  eq. 

the  augmented  matrix  ly,X]  of  dependent  and 
independent  observations  for  computing  OLS 
estimation. 

M - BINARY  FIXED;  row  dimension  of  A,  eg.  the  number  of 


329 


observations  for  time  series. 

N - BINARY  FIXED;  column  dimension  of  A,  eg.  the  total 
number  of  variables  for  moment  calculations. 

Returns ; 

R ( N , N ) - BINARY  FLOAT  f (53) ] ; the  square  symmetric  matrix  of 
moments  R = A ’A. 

Function:  R = MMVERT [ D] : (A, N, ZERO) 

Purpose : Obtains  inverse  of  symmetric  matrix  of  moments  (A), 

and  computes  OLS  coefficients  B = INV ( X ’X) *X  ’ Y. 

Arguments : 

A (N ,N)  - BINARY  FLOAT[(53)l;  Input  matrix  of  moments. 

ZERO  - BINARY  FLOAT[(53));  tolerance  constant  with  which  the 
determinant  is  compared  for  singularity  test. 

N - BINARY  FIXED;  dimension  of  square  matrix  A. 

Returns : 

R(N,N)  - BINARY  FLOAT[(53)];  Inverse  of  A with  OLS 
coefficient  vector  "B"  in  R(1:N-1,N). 


Function:  R = MATVEC [D]  ( A , B , M , N) 

Put  pose : Matrix  A is  postmultipl ied  by  vector  B to  yield 
vector  R.  Matrix  A must  have  as  many  columns  as  vector  B 
has  elements. 

Arguments : 

A (M  ,N)  - BINARY  FLOAT((53)J;  given  M by  N matrix  A 
(left-hand  factor). 

B (N)  - BINARY  FLOAT [(53)];  given  vector  B of  M elements 
(right-hand  factor). 
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M - BINARY  FIXED;  low  dimension  of  A and  number  of  items  in 

R. 

N - BINARY  FIXED;  column  dimension  of  A and  number  of 
elements  of  B. 

Returns ; 

R(M)  - BINARY  FLOAT [( 53 )] ; resultant  product  vector  of  M 
elements. 

Notice  that  all  the  previous  MODEL  functions  involve  a 
more  general  concept  than  the  regular  PL/1  function,  in  the 
sense  that  the  latter  restricts  its  outcome  to  a single 
value,  whereas  MODEL  functions  can  return  a matrix  or  a more 
general  array  structure.  To  accomplish  this  the  code 
generation  phase  must  recognize  this  special  MODEL  functions 
and  generate  a corresponding  procedure  CALL  in  place.  For 
example  for  the  function  MOMENTD  the  following  procedure 
call  is  generated: 

CALL  MOMENTD  (R,Z,NO,NV); 
and  the  following  procedure  code  is  included; 


•-SOMSMTOj  PROCPHURE  (P,A,'1,M)  . 
DECLARE  ( A ( * , * ) , R(*,*) ) 


HILARY  FLOAT (53), 

('•l,N  , I , J,  K)  RI'JARY  P I '<  E C , 

S ° I \'AR  Y FLOAT  (53); 

00  I = 1 TO  >J; 

00  J = 1 TO  ; 

S = 0.  ; 

DO  K = ] TO  '1 ; 

’5  * S t-  A ( F , I ) * A ( K , 1 ) ; 

EMD; 

•3  ( I » 0 ) , R ( J , I ) = S; 

F .'JO; 

HOO; 

Ef’TURM; 

F*Ji.)  MOM-'MTO; 

U li-  DO  U a ll  t 1 ■>  ^ i r RijbS  1 1 1 U tO'1  i 
r inert  ;or,  1 -fci  'T.ce  in  the  cooe. 
-nouli  ,0.-'  to  i^entifv  t 

' d 3 1 i n c 1. 1 j 1 e no  citti  iHutt*  oh  i~  > 
■latch  in  -t  ''etveen  oat  a 3tv^  ai 


Other  functions  used  in  model  buildinq  weie  added  to  the 

f 

MODEL  libraiv.  Some  tynical  examples  of  functions  used  to 

qenei  ate  random  vaiiates  ate: 

I 

w 

v = UNIFORM ( A , R) 

to  qenerate  unifoimly  distiibuted  variates  in  the  ianqe 
between  A and  B; 

X = EXPO:.' (EX) 

to  neneiate  exnonent ia 1 l v distiibuted  vaiiates  with  mean  FX ; 

X = GAMMA (K, A) 

foi  qamma  distiibuted  vaiiates  with  parameters  K and  A; 

X = NORMAL (EX, STDX) 

foi  normally  distributed  variates  with  mean  EX  and  standard 
deviation  STDX.  These  as  well  as  othei  qeneial  matiix  and 
vectoi  manipulation  functions  implemented  in  the  MODEL 
library  aie  listed  in  Appendix  D. 
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8.3  Examoles  Usinq  Functions  j 

8.3.1  An  Input-outout  Matrix 

1 

j 

This  first  example  illustrate  how  to  describe  a module 
to  form  an  input-output  Leontief  matrix  (I  - A)-1  . 'A'  is  a 

source  matrix  of  technical  coefficients  size  N by  N 

/*  FORMING  THE  IDENTITY  MATRIX  "I"  */ 

I IS  INTERIM  (BIN  FIXED ,( N , N ))  ; 

K , L ARE  SUBSCRIPT  (1,N); 

IF  K=L  THEN  I ( K , L)  = 1 \ 

ELSE  I ( K , L ) = 0; 

/*  SUBTRACT  MATRICES  */  ; 

S = I - A; 

/*  OBTAIN  THE  INVERSE  */ 

X = MINV ( S , N , 0 ) ; 


8.3.2  Ordinary  Least  Squares  Repression  Module 

OLS  calculations  can  be  specified  in  a number  of  ways 
usinq  some  of  the  functions  previously  described.  The 
expression  for  the  vector  1^  of  estimated  coefficients  is: 

'b  = (X'xf1  X 1 Y 

where  Y[T]  is  the  vector  of  observations  for  the  dependent 
variable  and  X[T,N]  is  the  matrix  of  observations  for  the  N 
explanatory  variables.  The  vector  of  coefficients  is 
defined  as  3 ( N ] . 

Let 


-— m 


4 
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XT  IS  INTERIM  (N  ,T) ; 

MX  IS  INTERIM  (N,N); 

MY  IS  INTERIM  (N)  ; 

MI  IS  INTERIM  (N,N); 

Then 

/*  THE  TRANSPOSE  OF  X'X  IS  PLACED  IN  'XT'  */ 

XT  = TRANSP ( X , T , N ) ; 

/*  MOMENTS  X'X  AND  X'Y  ARE  COMPUTED  AND  STORED  IN  ’MX' 

AND  'MY*  RESPECTIVELY  */ 

MX  = MATMLT (XT,X,N,T,N)  : 

MY  = .MATVEC  ( XT , Y , N , T ) ; 

/*  INVERSE (X'X)  IS  KEPT  IN  'MI*  */ 

MI  = MINV(MX,N,0) ; 

/*  COMPUTE  REGRESSION  COEFFICIENTS  */ 

B = MATVEC (MI ,MY,M,T) ; 

/*  FORM  XE,  THE  PREDICTED  VALUES  IN  YH AT  */ 

YHAT  IS  INTERIM  (T) ; 

YHAT  = MATVEC (X,3,T,N) ; 

/*  OBTAIN  RESIDUALS  Y - XB  in  R V 
R IS  INTERIM  (T) ; 

R = Y - YHAT; 

Finally  some  statistics  can  be  computed  as  follows:  The 
variance  of  the  estimated  residuals,  VAR,  is  niven  by 

VAR  = (1/(T-N) ) * SUM (R(K)**2,K) ; 

K IS  SUBSCRIPT  (1 ,T) ; 

and  R**2,  ad-justed  for  deqrees  of  freedom,  is  given  by 


V-Y'/b  I ".'ISO; 


SKVlSf  = ( 1/(T-1 ) ) * (SUV  (Y(K)  k*2,Y)  (Y(K)  , K)  **2)  ; 

The  OLS  specification  '"ay  aooeai  extiemelv  comolov  foL  a 
orosoecti ve  uset  . ’’owevei  the  concept  thjt  must  b*>  insisted 
on  is  that  it  is  not  a oio'uam  to  ne  used  ot  ‘imiely  for  Of, 3 
computations,  it  is  a description  foi  the  design  of  a 
oiouaa  which  will  lie  qeneiated  to  caiiv  out  such 
computations.  The  econometrist  i " expected  to  otovide 
definitions  wit  1 which  he  is  familial.  to  must  also  oiovide 
the  necessaiv  description  foi  inout  and  output  files.  if  in 
oiovidinq  this  information  i eou i r ements , careful 

considerations  are  aiven  to  the  user  interface,  then  the 
uset  who  at  a lowei  level  is  noim  to  execute  the  qenerated 
pioqiam  will  have  only  to  Provide  the  required  data  foi 
evaluation  (for  instance  fiom  a terminal  and  in  free 
foi mat ) . 

.4  niiect  [ no]  ement  at  ion  of  Pst  i"at  ion  ’^tho-'s 

i’nis  section  exoloies  the  feas  i i l i tv  and  imnl  icat  ions 
of  a direct  i mol ementatinn  of  estimation  techniques,  foi 
oithei  sin-i  I e oi  simultaneous  equations,  usim  tho  existing 
s tot  i'ic  uti  uc‘  *u  o foi  asset  t ions  in  the  of  the  MOOFf. 

processor . The  discussion  is  c°nteied  on  the  necessaiv 
metlio-to looy  foi  the  embedd ini  of  a qqqcial  and  complete  set 
of  estimation  techniques  into  the  pon-er ocedutal  nntut*»  of 
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MODEL.  For  detailed  background  on  methods  and  alqorithms 
used  in  estimation,  the  reader  is  referred  to  standard 
econometric  textbooks  such  as  Johnston  {JOB  72]  01  Klein 
fKLE  74]. 

The  qeneial  aoptoach  used  by  TROLL  in  single  equation 
estimation  is  well  suited  foi  imolementat i on  into  model. 
The  main  char actor ist ics  of  this  aonioacn  can  he  summarized 
as  follows: 

l.-  For  OLS,  an  equation  of  the  form 

f ( X , ’>  ) + e = o 

where  X=  i x 1 xm)  is  a set  of  lata  vectors,  'n*  is  a set 
of  par ameter 3 , * f * is  a function  of  these  two  data  sets  and 
'e ' is  an  imn licit  additive  ertor  vectoi  , is  linearized 
usinn  a Taylor  Series  exoansion  so  that  it  fits  the  form 
(Y-XB)=e.  This  results  in  a nuadratic  ohiective  function  to 
he  minimized 

A . A A . A 

e 'e  = (Y  - XlJ ) ' ( Y - XP) 

A ^ 

whcue  e Leoiesents  the  obsei  vei  residuals  and  ' p * the 

A 

estimated  set  of  naiametets#  *\n  exolicit  solution  foL  fn* 
tesults  in  the  familiar  first  order  conditions 

A -1 

B - (X  ’X)  X 'Y 

The  advantage  of  this  aooroach  is  that  in  the  case  of  a 
linear  eouation,  it  reduces  directlv  to  the  calculation  of 
ordinary  least  sauares.  in  the  case  of  nonlinear  ecruat.ions, 

the  Taylor  series  exoansion  must  ho  made  around  some  initial 

o 

values  of  B',  call  it  B . This  involves  an  iterative 


I t / 


•Jl  ; i 

it  < -ach 

J l ‘ 

• 1 1 ess : 

or  i 

i.  ' 

oei  ( oi  n<*  * on 

t he 

1 ink'll  i'/.oH 

enuat.  ion,  an 

» .1 

test 

is 

ma^e 

to  see  if 

th° 

co^out^i  H 

me  iiffeicnt 

o 

f i oi  n . 

I f 

the 

test  ci itei  i 

on  is 

O A , 

not  met,  n>  l s set  equal  to  n and  tne  st?os  mo  reoeat0^. 

F l o m the  usei  ooint  of  view,  it  has  the  advantaqe 

that  it  is  not  teouiied  to  entot  a equation  in  the 

canonical  sum  of  moducts  foi"'. 


2.-  OLS  can  be  conn  tried  with  othei  collection  techniques. 
Foi  examnle  instianental  v-niablcs  ti  nns  f oi  ma  t ion  oi 


qenei al ized 

leas 

t sr*uaies  can  be  oo~h i 

ned 

with  a lineal 

l eqiession 

in 

the  stand aid  mannei. 

Foi  nonli.neai 

tegtession , 

the 

techniques  aie  aoolied 

at 

each  iteiation 

steo  on  the  exoanded  lineal  equation  foin. 

3.-  Oistiibuted  Ian  equations  of  the  fnn 

•n 

^ o (a  -f  ' + f ( vx  * ’■ ) *■  " = 0 

'Xmo  1 T 

can  be  estimated  bv  assuming  that  tne  estimates  of 
oioduced  bv  an  liK  naqice  oolynomia] 

a-r  = E wj'T' 

i-0 

Teas  method  of  corsti  a in  in3  t'10  env:Tate<'  or  ’ a in  the 
laa  ooeiatoi  to  ic-duce  the  oioblen  of  collinomitv  is  '<nov- 
as  the  Mr.on  vocess. 


4.-  Foi  a Geneialixed  Least  Equates  collection,  qiven  the 
qenetal  equation  foim 

f ( X , - ) + e = I) 

in  which  tne  covaiiance  r.otiix  of  ’o’  is  '-novn 


r - - 


'THU"  . 


i 
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E (ee  ' ) = C^*V 

a ti ansfoi mat  ion  matrix  'A'  is  constructed  by  factor  im 
'V  ' , i.e.,  ’A’  is  formed  such  that 

A ' A = v"1 

The  equation  is  linearized  in  the  usual  wav,  ani  then  it 
is  oremultiol  led  by  the  transformation  matrix  'A'.  The 
ordinary  least  squares  procedure  is  subseauentlv  aoolied  to 
the  transformed  equation. 

The  qenotalized  least  squares  procedure  can  he  used  in 
coniuction  with  a symbolic  transformation  'A'  to  correct  for 
first  or  second  order  autoremr essive  processes  of  the  form 
e(t)  = ^e(t-l)  + e*tt)  for  first  order,  or 
e(t)  = ^elt-1)  + ^e(t-2)  + e^t)  for  second  order 
In  these  cases  the  error  covariance  matrix  and  its  inverse 
will  be  a function  of  the  oarameters  ^i,  and  aqain  an 
iterative  schema  similar  to  the  familiar  Hildreth-Lu  fMIL.,LU 
60]  otocess  will  result.  In  cases  of  nonlinear  equations 
two  iterative  processes  are  involved. 

5.-  As  mentioned  previously  in  section  3.1,  a loaical 
order inq  oiocedure  is  aoolied  to  resolve  or  best  insure 
consistency  and  efficiency  in  the  estimates  when  multiDle 
.methods  and  or  transformations  are  aoolied. 

After  this  brief  introduction  to  a qenetal  approach  to 
estimation,  as  used  in  the  T80LL  system,  assume  a use*:  of 
MODEL  wants  to  estimate  an  equation  such  as 


I 
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FQl : Y = ( l - A)  * X + B t EPPOR; 

Since  t.01  is  3 linear  assertion,  after  the  linearization 
otocHuic  it  will  be  transformed  into  the  exoression 

KOI:  Y-X=-A*X+P+  FR°nD ; 
to  which  the  OLS  tear  ess  ion  tie  t hod  can  be  aonlied.  For 
instance  the  user  can  identify  the  method  and  parameters 
thioinh  the  lOLMTTD*’  statement  header  foi  an  assertion 

example 

FQl : 

o o 

SOL:  OLS, A ,h 

Y = (1  - A ) * '<  + B +■  ERROR; 

o o 

where  (A  ,p  ) is  a liven  initial  mess  for  the  coefficient 
vector,  to  be  used  in  nonlinear  cases,  and  set  to  zero  for 
linear  equations. 

first  it  'nust  be  noticed  that  th»  usual  ;ouer>- , rA°or'" 
c Iasi f icat ion  of  variables  in  CbbFL  is  not  sufficient  for 
estimation  outooses.  In  the  case  o ' te-jr  ession  analysis  t.hr' 
i’ A PC  FT  variables  actually  are  the  mrametnt.-  (A,  ’■),  but  the 
uset  normally  wants  to  mantain  the  structure  of  his  equation 
ieoictinq  the  deneniont  and  exolanatorv  variables.  Notice 
also  that  the  deoen^ent  variable  can  imoly  a temootary 
transformation  for  outooses  of  estimation  only  (en.  Y - X 
in  CM).  The  f'P’MR  or  residual  ter~  can  also  be  considered 
a PARGET  tvnc  variable,  since  it  v i 1 1 be  computed  bv  the 
regression  method  selected  to  or aduce  aoorooriate 


statistics 


If  'dGOFL  is  extended  to  include  the  data  tyoe 


PARAMETER , it  is  possible  to  determine  automatically  the 
necessary  transformations  and  nenerate  the  required 
estimation  moat  am 

cxatolo : 

A f B AFK  PARAMETERS  < F IXEO ( 10 , 4 ) ) ; 

PCI  : 

SOf>:OLS 

TARGET:  ERROP  , A,  n 

SOURCE:  Y,X 

Y = (1  - A)  *X  +3+  ERROR ; 

The  processor  will  not  normalize  to  ERROR  since  it  will 
tecoqnize  the  solution  method  as  requiring  repression 
analysis  rind  will  proceed  to  the  l ineat  izat  ion  process 
yield inq 

Y-X=-A*X+B+  ERROR; 

as  the  final  foim.  Also  an  INTERIM  vai table  t=Y-Xwill 
be  formed  to  hold  the  transformed  dependent  vai iable  for  the 
repression  ptoqtam. 

It  is  also  possible  to  identify  the  soecial  nature  of 
coefficients  ( A , h ) as  oait  of  the  solution  parameters  (i.e., 
SOL:  OLS  f A , B) , or  identify  EXPLANATORY  and  or  DFPENDf NT 

variables  in  the  header  of  the  assertion. 

Since  the  cvcles  processor  in  MOOEf.  can  identify  the 
recursive  structure  of  a system  composed  of  simultaneous 
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assertions,  it  is  possible  to  extend  the  sinqle  equation 
estimation  methodology  to  systems  of  simultaneous  equations 
by  includinq  Full  Information  Maximum  Likehood  (FIML),  3SLS 
oi  Iterative  Least  Squares  (ILS)  methods.  The  basic 
mechanisms  to  qeneiate  iterative  solution  oroqrams,  at  two 
levels,  is  already  imolemented  in  MODEL,  however  the 
Completeness  Analysis  should  be  extended  to  take  account  of 
possible  new  data  types  in  the  assertions  and  mote 
importantly,  the  Sequencing  phase  should  analyse  the 
ordering  of  methods  of  estimation  and  its  transformations  to 
produce  meaningful  statistics. 

8.5  Further  Extensions  of  Sinqle  Equation  Methods 

The  basic  primitives  used  to  generate  single  equation 
regression  oiogtams  (OLS,  TSLS  or  LIML)  can  also  be  used  to 
produce  modules  for  estimation  of  principal  components  and 
Ridge  regressions.  Similarly  it  is  possible  to  modify  the 
Mmon  procedure  for  distributed  lag  models  and  include 
Shiller's  method  derived  from  smothness  priors  [SHI  731. 
These  ate  new  methods  which  are  being  empirically  tested  as 
possible  solutions  to  the  problem  of  mul ticol 1 inear  ity , 
therefore  their  inclusion  in  a modeling  system  should  be 
considered.  Followinq  is  a brief  description  of  their 
properties  and  characteristics  for  imolementa t i on  . 


'■  1 ■ 'F 

i. 


4 


8.5.1  Principal  Components 


2 


Pi  incipal  components  of  a set  of  oi edeter mined  variables 
X=xit  'xHi...xmtaie  defined  as  mutually  oithogonal,  lineal 
combinations  of  the  elements  of  X 

TP 

pc  = ^ljxjt  i=l,2,...,r;  t=l , 2 , . . . , T 

J3  V*1  yi1 

such  that  pc^  has  maximum  variance  for  0 j a.  + J.  a + ..  + 

(the  normalization  condition),  and  the  pc^  aie 
mutually  uncotr elated  (independent). 


The  principal  components  ate  estimated  as  the  set  of 
characteristic  vectors  cor  responding  to  the  characteristic 
roots  of 

|X  'X/T  - All  =0 

Instead  of  the  moment  matrix  X'X,  it  is  Dossible  to  use 


the  correlation  matrix  "R"  as  standardized  form  with 

T 

(Xl*  — *0  (Xj*  ~ ) 

'u*  rx  - i x - ii l4 
_ w t EOfu-xd  Z 

and  x;  = (1/T)  £ x l_t«r  t.«i  J 

1 t-i.  r 

The  first  (largest)  "r"  roots  whose  characteristic 


vectors  (components)  account  for  a preassigned  percentage  of 
the  variance  of  "X"  are  selected  as  instruments.  "Y"  is 


then  regressed  on  the  reduced  set  of  principal  components 

oclt  , ,PCj.t,  where  T>r.  The  dc^  can  be  used  in  the 

first  stage  regression  of  a TSLS  or  LIML,  where  instead  of 
computing  the  inverse  (X'X)  1 , the  calculation  involves  the 
inverse  ( P 'P)  . 


From  the  computation  point  of  view,  it  is  not  necessaiy 
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to  evaluate  implicitly  the  principal  components  as  such, 
since  moment  calculations  with  linear  combinations  of 
variables  can  be  expressed  as  linear  combinations  of  the 
oriqinal  variables  as  follows: 

In  terms  of  the  data  matrix  of  predetermined  variables, 
the  P matrix  is 

p = x r"  (8-i) 

therefore  the  moments  are 

P'P  = rx'X  P’  (8-2) 

The  EIGEN [0]  procedure  in  Appendix  0 uses  the  Power 
method  to  obtain  all  the  eigenvalues  and  eigenvectors  of  an 
nxn  real  matrix  A.  The  same  procedure  can  easily  be 
modified  to  compute  only  the  first  (laraest)  characteristic 
roots  of  the  equation 

IR  - Xl  I =0 

and  terminate  once  enouqh  components  have  been  computed  to 

account  for  the  preassigned  percentaqe  of  the  qeneral 

variance.  The  ratio  of  A^to  the  sum  of  the  diagonal 

elements  of  R (TRACE ( R) ) that  ate  normalized  to  unity  in 

each  case,  qives  the  percentage  of  variance  explained  by  the 

ith  component.  The  cummulative  total  of  the  percent 

variance  acounted  for  by  the  first  "r"  oc's  is  given  by 
r -A 

2_,  Al/m. 
i*l 

After  evaluation  of  f1 , the  module  should  form  the  t iqht 
hand  side  of  expression  (8-2),  using  the  MOMENT  f D 1 function 
in  calculation  of  the  oriqinal  moment  matrix  plus  regular 
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matrix  multiplication  and  transposition  (MATMLTD,  TRANSP) . 
The  resulting  matrix  will  be  diagonal,  since  the  principal 
components  are  mutually  orthoqonal,  therefore  the  inverse  of 
it  could  be  obtained  by  a simolier  inverse  function. 

/z  ® ....  o 

o yz  ?*. ...  o 

(P'P)'  = 


8.5.2  Shiller 's  Method  and  Ridqe  Estimators 
In  a distributed  lag  model p 

~ M t (8~3) 

L-O 

with  X M } t = 1,-2.,  - • • , T» 

the  Almon  method  assumed  that  the  (3^  lie  in  an  1th  degree 


polynomial,  then 


- X>J  r 


(.8-*0 


J=0 


For  illustration  purposes  assume  a quadratic  polynomial, 


then 


I f^  = 


°<0  + 


( 8 - 5) 


and  equation  (8-3)  can  be  written  as 


= S (*<>  +•  «XT  -b  «2T*)  Xt-i.  + Mb 

r=o  u 


and 


= ^2,t  +^2^+^  Hzt+AAt  l$-6) 

ZJt  = ETX,., 


t=0 


Equation  (8-4)  can  be  written  as 


(?-7) 
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f^>  = H c< 


(8-8) 


and  for  the  quadratic  case 


1 0 0 


1 1 1 


1 2 4 


1 P P 


Define  M = I H(H'H)  H',  then  (8-8)  imply  the 


restriction 


M ft  = 0 (8-9) 


Thus  the  Almon  estimatOL  minimize  (Y  - xft ) ' (Y  - xft ) 
subject  to  the  restriction  in  (8-9).  This  lives 

^ -1  -i  -i 

=5  -(X’X)  M'(M(X'X)  M']  A M (b  (8-10) 

where  fp^is  the  Almon  estimator  of  [2>  and  represents  the 
0L3  estimator  of  ft  . 


Shiller  notes  that  (8-5)  implies 


A5p.  = °;  (»-“) 

and  further  makes  (8-11)  stochastic  by  addinq  an  error  term 
I N { 0 , ) , that  is  Aft,  = w. 


(3-12) 


6 


whet  e 


1 -3  +3  -1  0 0 


0 1 -3  +3  -1  0 


0 0 0 0 0 0 -1  -3  +3  -1 


R is  a (p-l)x(p+l)  mattix.  The  estimatoi  of  fi>  is  given 


( X ' X + kR'R)  X'Y 

l t 

whete  k = is  assumed  known. 


(8-13) 


Hoetl  and  Kennatd  [HOE  70]  suqqested  a set  of  biased 
least  squates  estimatOLS  which  they  call  "tidqe  estimatots". 


Instead  of  the  OLS  estimatot 


ri  “ X 

Jo  = (X’X)'ax'y 


(8-14) 


they  ptopose  the  modified  estimatot 

A -1 


(X  'X  + kl)  X'Y 


(8-15) 


Again  K is  assumed  known,  or  must  be  computed  ftom  some 
itetative  schema.  A survey  on  the  properties  of  these 
estimatots  and  related  techniques  is  qiven  in  [VIN  78],  A 


mote  general  form  can  be  considered 

-A  t 

/3.  = (X  'X  + kof  X 'Y 


(8-16) 


where  "Q"  is  a positive  semidefinite  matrix,  then  it  can  be 
seen  that  Shiller 's  estimators  as  defined  in  (8-13)  are  also 
ridge  estimatots. 


The  main  problem  in  calculating  these  estimators  is 
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determining  a suitable  value  for  "k".  Lindley  and  Smith 
[LIN  72]  suqqest  an  iterative  method  which  can  be  applied  to 
both  ridqe  and  Sniller  estimators.  The  process  start  with 

/A 

/B^/  the  OLS  estimate  of  fi'L,  and  then  oroceeds  by  takinq  the 

variance  of  the  estimates  as  an  estimate  of 

y\  x P _ x 

P*  = (i/o)  £.  <(3- -(*> 

«:•=  o 

X 

After  the  new  estimates  are  computed,  the  estimate  of  c ^ 

x 

is  revised  based  in  the  new  estimates.  The  estimate  of  ^ 
ate  taken  from  the  least  squares  residuals.  The  orocedure 
should  stop  when  some  desired  preset  convergence  criteria  is 
obtained . 

MODEL  provides  the  basic  matrix  and  vector  operation 
functions  to  non-procedural ly  describe  these  techniques,  as 
well  as  the  iterative  mechanism  for  their  solution. 


CHAPTER  9 


Conclusions 

The  MODEL  system  described  in  the  precedinq  chapters 
permits  the  automatic  generation  of  model  building 
application  programs  from  a non-procedural  specif ication  in 
the  MODEL  lanquage.  The  techniques  and  facilities 
introduced  by  this  research  illustrated  the  feasibility  of 
such  an  approach.  Continuation  of  present  trends  with 
respect  to  usage,  size  and  complexity  of  different  models 
used  in  the  physical,  social  and  natural  sciences  indicate 
the  proposed  new  methodology  as  a viable  and  cost  effective 
alternative  for  software  development  as  well  as  for- 
providing  the  model  builder  with  a direct  comunication 
interface  for  his  structural  ideas.  Those  aspects  of  MODEL 
which  permit  the  sharing  and  integration  of  different  models 
and  their  data  structures  were  also  demonstrated.  These 
facilities  will  allow  the  incremental  qeneration  of 
knowledge  databases  encomoassina  the  contributors  expertise. 

It  is  premature  yet  to  draw  comparisons  with  regard  to 
the  quality  and  efficiency  of  the  code  generated  by  the 
MODEL  processor,  since  the  code  generation  and  global 
optimization  phases  are  still  in  developmental  and  research 
stages.  However  it  is  possible  to  infer  from  comparisons 
performed  in  previous  versions  of  MODEL,  as  applied  to 
business  data  processing  examples  [RIN  76),  that  the 
efficiency  of  a program  generated  by  the  processor  will  be 
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qood  as  compared  with  a manually  wi itten  proqram.  The  fact 
that  the  user  can  qenerate  ad-hoc  Dtoqtams  for  particular 
problems  also  contLibute  to  the  efficacv  of  the  qenerated 
proqrams,  which  otherwise  have  to  bear  unnecessary  the 
overhead  code  incurred  by  General  purpos--  model  inu  oackaqes. 

Althouqh  at  first  qlance  the  specification  for  Klein's 
Model  I qiven  in  Appendix  A may  appear  complex  in  relation 
to  the  statements  reouired  for  solvinq  such  model  in  othei 
systems,  a catefull  evaluation  suqqest  the  opposite.  Since 
existino  modelinq  software  do  not  Dosses  qeneralized  data 
description  capabilities,  this  is  always  implicit  in  the 
system  and  impossed  to  the  user . With  MODEL  the  usei  can 
create  or  access  a library  of  appropriate  specifications  for 
different  data  structures,  and  needs  only  to  l e f ^r  to  them 
for  inclusion  in  his  specification.  In  such  case,  the  model 
builder  should  concern  himself  only  with  the  description  of 
the  model  structural  equations.  The  same  concepts  can  be 
extended  to  ad-hoc  description  of  reports,  once  they  are  in 
the  user's  data  base,  different  modules  can  refer  to  them 
for  inclusion  in  the  respective  specifications.  In 
addition,  notice  that  over  thirty  percent  of  the  statements 
in  the  complete  specification  list  were  actually  qenerated 
by  the  MODEL  system.  These  considerations,  in  addition  to 
the  tolerance  Provided  by  the  processor,  stronqlv  favor  it 
in  relation  to  other  systems,  particularly  as  the  complexity 
and  information  requirements  of  a qiven  model  qrowths. 
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In  summary,  the  MODEL  lanquaae  and  its  Processor  Promise 
to  he  a valuable  tool  for  developing  the  software  needed  at 
different  stages  by  lane  models.  While  several  refinements 
of  the  existing  system  ate  oossihle,  it  is  likelv  that  the 
greater  benefits  will  come  ft  o'"  actual  testim  of  the  system 
in  the  hands  of  model  builders.  A dynamic  environment 
requiring  communication,  inteqration  and  solution  of  models 
of  different  sizes  and  comolexities  will  orobablv  contribute 
to  the  basic  svstem  presented  in  this  dissertation,  and  an 
enhanced  knowledge  database  and  systen  will  emerge  from  such 
interaction. 

Several  extensions  to  the  present,  svstem  are  possible, 
and  some  of  thero  were  mentioned  in  orevious  chanters.  The 
most  obvious  are  concerned  with  generation  of  n^w  solution 
procedures  and  algorithms,  as  exemplified  in  Chapters  5 and 
3.  Although  the  language  is  onen-«nded  for  Procedural 
applications  through  the  inclusion  of  appropriate  functions, 
in  many  instances  it  is  possible  to  deleaate  mote  deductive 
cower  to  the  processor,  such  as  to  automatically  determine 
those  procedural  needs  and  generate  appropriate  algorithms 
after  analysis  of  the  given  specification  (and  oossihle 
interaction  with  the  user)  shows  that  a procedural  solution 
method  is  needed  to  avoid  inconsistencies.  Examples  of  such 
analysis  and  interaction  ate  the  cycles  processor  for 
. : "v 1 taneous  eouations,  and  the  proposed  general  approach  to 
;t:;n.jtion  is  described  in  Chanter  3.  Several  other 
• r lint  lopi  could  benefit  from  such  approach.  Pot 


3b  1 

instance,  if  the  syntax  of  ’*ODEL  is  extended  to  include 
simple  assertions  with  ineoualities  reoresentinq 
consttaints,  then  the  cvcles  alqoritho  could  he  used  to 
identify  lineal  oi  non-linear  oioqi amino  oroblens  in  which 
an  objective  function  should  be  maximized  (minimized) 
subject  to  some  related  ineoualities.  For  tnese  oioble.ms  it 
is  important  to  identify  oossible  l ear rennement  into  "block 
annular"  form,  as  shown  in  Pioure  9.1,  to  snbsenuentlv  use 
any  of  the  well  known  decomoosition  alooiithms  f'dPT  71). 


A (0,1)  A (0,2)  ......  A ( 0 , n ) 

A ( 1 , 1 ) 0 0 

0 A ( 2 , 2 ) 


0 0 A(n,n) 

Finn re  9.1 

Canonical  block  Annular  roi i 
(A ( i , j ) are  arbitrary  rectannular  matrices) 
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Different  maximization  alqor ithms  such  as  those  used  in 
optimal  control  applications  of  lane  econometric  models 
(AMD  76]  can  also  be  implemented  and  the  domain  of 
applicability  of  MODEL  will  tnerefore  be  expanded.  Notice 
that  it  is  possible  to  use  the  present  system  for  simole 
optimal  control  studies  by  augmentinn  the  implicit 
definition  of  a model  with  additional  relations  derived  from 
the  maximization  conditions  of  a welfare  or  objective 
function.  However  3 more  sophisticated  system  should  be 
able  to  perform  symbolic  differentiation  on  the  welfare 
function  with  resoect  to  the  oolicy  variables  in  all  time 
periods,  and  automatically  qenerate  additional  assertions  to 
endoqenize  selected  policy  variables.  In  a typical  dynamic 
model  which  uses  lonq  distributed  laqs,  the  total  number  of 
equations  and  variables  can  increase  dramatically  when  the 
system  is  converted  to  first  order,  therefore  the  advantaqes 
of  mechanizing  the  Procedure. 

Chapter  5 discussed  a number  of  possible  extensions  to 
the  basic  cycles  algorithm,  in  order  to  "tear"  or  further 
decompose  a set  of  strongly  connected  components  into 
smaller  and  more  manaqeable  groups.  The  problems  of 
partition,  near-decomoosability  and  aggregation  have  been 
shown  to  be  of  relevance  in  social  sciences,  and  therefore 
it  will  be  valuable  to  extend  the  system  in  those  directions 
such  as  to  help  the  user  to  better  understand  the 
interconnections  and  complexities  of  his  system.  Finally 
Chapter  7 presented  a basic  mechanism  for  implementation  of 


different  algorithms  for  the  automatic  selection  of  "output 
sets"  or  rules  of  normalization.  Applications  in  the 
physical  sciences  and  engineering  will  probably  benefit  by 
introducing  such  facilities. 

Some  Experimental  techniques  to  check  the  consistency  of 
a model  specification  can  also  be  added.  For  instance 
Steuert  [STE  74]  suggest  a graph  theoretical  algorithm  to 
generate  all  "submodels"  of  a simultaneous  equation  model, 
and  then  test  them  for  convergence  and  use  Fisher 's 
correspondence  principle  [FIS  70]  to  locate  specification 
problems.  The  cycles  processor  could  be  extended  to  include 
this  and  other  algorithms  as  alternative  solution 
procedures . 

In  addition  to  the  refinements  and  extensions  above 
mentioned,  perhaps  the  most  worthwhile  direction  for  further 
research  would  be  to  endeavor  in  the  design  and 
implementation  of  application  oriented  interfaces,  whose 
tasks  would  be  that  of  guiding  the  user  in  comoosing  his 
specification  in  a language  which  is  more  natural  to  the 
application  practitioner  than  the  general  syntax  required  by 
MODEL.  From  such  higher  level  interaction,  the  required 
MODEL  language  specification  can  then  be  generated.  Figure 
9.2  illustrate  a proposed  system  for  economic  modeling.  The 
existing  MODEL  system  is  indicated  in  the  center  of  the 
diagram,  and  can  be  considered  to  represent  the  "expert" 
system  in  programming  and  logic  required  to  generate 
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particular  software.  The  top  box  contain  the  "knowledge" 
for  a given  application,  such  as  to  guide  the  user  in 
composing  his  statements,  with  possible  Dreanalvsis  and 
interpretation  of  intermediate  tasks.  An  economist  will 
describe  his  data  to  the  interface  as  being  time-series  or 
cross  sectional,  will  identify  the  components  of  his  model 
in  terms  of  parameters,  exogenous  or  endogenous  variables 
and  functional  relationships.  Solution  procedures  will  be 
identified  for  different  tyoes  of  simulations,  residual 
checks  or  policy  analvsis,  etc..  A CALCULATOR  mode  could  be 
provided  for  the  creation  and  transformation  of  new 
variables  and  other  simole  statistical  and  data 
manipulations  requiring  immediate  interpretation.  Finally  a 
comolete  specification  in  the  MODEL  lanquaqe  will  be 
produced  for  processing  by  the  Automatic  Program  Generator 
System. 

While  much  research  lies  ahead  in  the  field  of  automatic 
program  generation,  it  is  hooed  that  this  research  has 
contributed  towards  that  end,  increasing  the  generality  of 
MODEL  and  providing  a valuable  tool  for  sharing  and 
integrating  the  knowledge  imbeded  in  the  modeling  process  in 
a way  that  it  becomes  accessible  to  both  humans  and 
machines. 


APPENDIX  A 


This  Appendix  shows  the  complete  listing  of  the 
simulation  example  with  Klein  Model  I explained  in  Chapter 
3.  Figure  A.l  shows  the  source  listing  with  the  MODEL 
generated  statements  recognized  by  asterisks  printed  in 
the  location  of  sequence  numbers.  Figure  A. 2 list  the 
elements  which  are  members  of  a simultaneous  equation  group 
and  ate  identified  as  forming  a compound  loop  by  the  cycles 
processor.  Figure  A. 3 presents  a formatted  output  produced 
by  MODEL  in  which  the  specification  is  divided  into 
corresponding  subsections  and  the  statements  in  each  file 
are  indented,  reflecting  the  tree  like  structure  in  them. 
Also  the  assertions  found  to  be  simultaneous  assertions  are 
grouped  together  under  a common  section  header.  Figure  A. 4 
shows  the  cross-reference  table  of  all  names  used  in  the 
specification,  in  alphamerical  order.  Each  name  is  listed 
with  a brief  description  of  its  attributes  and  the  line 
numbers  in  which  they  appear.  Finally,  Figure  A. 5 gives  the 
precedence  list  of  "dictionary"  elements,  showing  the 
successors  and  predecessors  of  each  element,  as  well  as  the 
type  of  relationships  holding  between  them. 
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26 

25 

26 

27 

28 

YEAR  1$  FIELD  1 SI  ART . NOP  161 1 1 

PERIOD  IS  FIELD  1 START. NUK12) 1; 

OBS.RUM  IS  FIELD  IRARuE.MOP.Ulll 

num_pd_yr  is  field  iranu£.kupi2ii; 
hefa  is  field  i iip.ser, rum  3>  ,11:2011 ; 

00 jo J5 fa 

OOuoJ^dO 

U0U0059Q 

0OOJJ600 

OU0CJ0IO 

29 

ENJREF  Ij  FIELD  1 UK_SER.umAKI1)I  ; 

~ 50JuJb2^ 

30 

DAI  A IS  FIELD  I llP.StK.DLCI  10  ,61  . (OBS.NU.Kl)  l 

C0JCJ630 

ai 

/*  dANR  FILE  IS  DESLKI  iitu  klTH 

A OtNtKAL  f JkMAF  WHICH  CAN 

4j  JOO  J6<»  0 

31 

6E  SHARED  6Y  CIHER  POODLES 

10  CESLR10E  IrlE  IK  DATA  (EX. 

OOOOJ6SO 

31 

AK.NJAL  AS  * c L L A3  UUAkF  CRL  V 

UATAI. 

OJ0UJ660 

31 

FOR  IRS  TAi.Cc  FGR  KLEIN'S 

HuCcL  1*  WITH  OAIa  FRC>H 

VoJ  JoJ6?0 

31 

1920  TO  1961,  A TIKE  SERIES 

ENTRY  RILL  LLuH  AS  FOLLOWS: 

UO JUU63G 

31 

Q'JOla  J6SI  0 

31 

(FI  ELD  RAPE  1 

I ENTRY) 

00000700 

31 

NAPE. LABEL 

c 

0J0UJ710 

31 

NAPE. TITLE 

CCNSOPPIICN 

* 

COJOJ/^J 

31 

NLM8tR 

1 

OOvJG  0730 

31 

TYPE. CODE 

tsou 

00000T60 

_3l 

TYPE. UNITS 

8ILLICNS  1536  DOLLARS 

0000 0 7*0 

31 

STARI.YEAk 

1920 

UUJO  j7bO 

31 

STAkI. PERIOC 

1 

0OU0J770 

31 

ces.Nup 

22 

OJOjD/60 

31 

M.K_PO_YR 

l 

OOol 0790 

31 

Rtf. Ill 

1 

OJJUJdOO 

31 

REF *121 

2 

QOUCOdlQ 

31 

REF  *( 3 1 

3 

Q00u0b2Q 

31 

ERCREF 

i 

000U003Q 

31 

CA1AI 1) 

39.6 

OUOOJ84Q 

31 

0ATAI2I 

61.9 

Q0J0JB50 

31 

31 

31 

3 1_ 

31 

31 


CAT  A(  22 1 


69.  7 


*/ 

/«• 


31 

3 1_ 

31 

31 

31 

31 


/• 

_/* 

/• 

/**«■» 


DESCRIPUCt.  Of  COMMENT  FILE 


•/ 

•/ 

*/ 


DCCPENT  IS  FILE  101 SK ,K EY »F EF 7 ) ; 


32 

33 
36 

35 

36 

37 


REFREC  1$  kLLDRJ  (OCoHtRI ,( •> I ; 

KEF 3 IS  F1ELC  IKEFKEC.6L.3I3II; 
DESCRIPTION  is  lrcop  ikefrec);- 

TITLE  IS  MELC  I0E3CR l PT l LN.lHARI 80  I > ; 
veil  IS  FIELD  i descriptor, char (6i i ; 

DA  ft  IS  FIELD  ICESCKIPTIC6.CHAK(13n; 


00  100670 
00000880 
00000690 
O0OU0900 
00000910 
00L00920 
0O0C0930 
0oJCu9',0 
OOOOC9SO 
U0UU0960 
00000970 


~oOooo^30 

000o0990 

00001300 

ooooioio 

00001020 

00001030 


38 

35 

60 

61 

61 

61 


61 

_6l 

61 

61 

61 

62 


63 

63 

63 

63 


PUOLlSnLK  IS  FIELD  IUSm  1 PTIGN.LhHR 1 201) ; 

AUlHLR  IS  FIELD  UltSCRlPI  ILN.CHAR  (20)  I S 

COHHEM  IS  FIELD  IREFREoCriAHUO)  >1 

/« »/ 

~7*  GESLHlPI  ICN  OF  fAKOEf  FILE  CCNlKCl  *7~ 

/« _ */_ 

CONTROL  1S>1LE  101  SN  .KEY -RoMOER I ; 

r ik. slr  is  kellro  luiNffn.ircT.vAKH; 


/♦ f ME  0LSCKIPT1C6  OF  TIM.SEH  IS  ASSUMED  IDENTICAL  TO  THAT 
PREVIOUSLY  ULSwKl  6ED  F OH  EANH.  */ 


00 JO  1060 
OoOOlOSO 
00001060 ' 
OLOOIOTO 
00001060 
00001090 

“QouOVruB- 
OoOOl 110 
00001 120 
00001130 
0000 l 160 
_oooou90 

OOOJI lb  J- 
00 oO 1170 
00001 160 
00001190 


A.l  (cont.) 
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43 
4 3 
<.3 
<.3 
4 3 
43 
4 3 
43 
43 
4J 
43 
4 3 
43 
43 

43 

44 

4 5 

46 

47 
48' 

45 
50 

5 1_ 
52 


/♦  ♦/ 

/♦  ClSlKlPTllN  a filla  IN  lEKMINAC  •/ 

/*  •/ 

* « tit  *.♦  * * * <1?  .»  * 


/•  ♦/ 

/*  CbSwulPIUN  CP  SGcECE  PILL  INPUT  */ 

/♦  •/ 

/**(»*{  * < ««  »;»( 


/♦  lf4?JT  UMA»NS  LlMi'liL  PAr*KtlLPa  EC*  I HE  Sl^vilAUON*/ 

iNPjr  is  f it  E ( tEkv); 

(.MrL.j'^I'Ai  Is  klCUPo  llNPol); 

S1.M_YEAP  IS  r ku  1 CNIRL^PA*  AHfNuH(4J  ) ; _ 

ji  I.*'.  Ij  Mu i,  (tMM_PAKAN„jM(t»)); 

StM.NP  li  E l lL*/  i l \ * * L_  P*«r\  A E v NJM 12))* 

SiM_liPl  HlU  U i2i)  J 

LiSIaEP  IS  r.  i-tLKis  ( lr.i-'U  I } ; 

roll  IS  i 1 Lit  ILiSlKtFtN oM4>); 

V.u»  IS  MLL_C  Ul  slr-cP  ,.\y  114), (101*1  1 1_5 


52 
52 
52 
52 
J2^ 

52 

52  KePukl  IS  Hit  i Tfcfi  ?->  ; 

52  GJlPjT  la  oKuGP  (kcPLhl  .(SIM.EPII  i 

54  f I T L E IS  KtoOf.J  ILUIPV.1); 

55  TtAP  I j MLU  1 fllLh«Plw*  I4)A»)  i 

56  Pj_js_  I i_J_  la  HtlJ  IJi  /L L , P l_C  ^jj  j 16JA  M % 

57  LaucL  iS  t III L Uiflc,»Mv*,oOij)A,j; 

58  VAIol  la  HtLC  II  ilL£,Pil*80(S)A')« 

55  CNTrf  la  Ktuf-j  ( l-  1 *■  o I , ( I L l h I I ; 

60  CU_YEAR  la  FltlJ  l cN  I F.  Y , PI  c • lL  25  * I ; 

61  LLl_r»c.«luJ  la  HcU  I L'4fkf»Pl  C#  <6>t29»)  ; 

±2 CcJ_l_Au  C_l  IS  f 1 E l C__l  w«\T  P Y , P l y • l oo  I *♦  1AM  ; 

63  Lol_vALot  IS  * i lL  u (fil  *V,PlC  •coS2225Y559  M • 

64 

64  /*  A S a L K I 1 L \ a f uR  UTlt  hEAlI.«v,  ♦/ 

64 

64  ftAK  = • Tfc  Ak* ; 

_65 PEPlUJ  - * PER  ICQ*  ; 

66  LABcl  = • l Abll • ; 

6 7 VAlOE  •*  ‘VALJc*# 

68 

68  /*  f rlt  GU  T Pc  I kt  PGk  I E Gr  sELllIEC  V^.WAolES  *IlC  APPEAR 

68  Aa  fullC  * S IN  I»*E  ItKMlNAl:  ♦/ 

68 (*_ 

68  YEAR PER  IEC.IlAcEL] VALJE 

68  1521 l K 184.121 

60  ♦/ 

68  /♦  lilt  l.'JTkv  *fv.Ciw  nliL  KhPrAf  f CK  > aLLbcft-J  VAklAOLl 

68  GIVE.  IN  1 .Pol  .L  I SlKtP#  ANo  iHl  oJfPjl  o^coP  FoK  tVlKY  PLKK.0  o I 

68 SoLM f iCh . */  

fed 

68  /*  jl  Jtu  IK  AtoUkoa  IN  |E»E  jKlt  fill  '.iA.*«a*  AKr.  jt 

68  (PoSaloiil  V A \ l Ahl t lL  No  I n » *»  l l IPilSaioLt)  GlEEEKtNl 

68  SlA^IiNo  PtkloJS  AI.J  NoMjlk  CE  o o S Ef>  V A I 1 ON  S IklEek  lU 
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Gowo 1220 
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GuOJl24G 
Gooo 1250 

oOoOtCGO 

JvJOo  l c / 0 
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FIGUKfc  i.Al,  U dECCMES  NLCtSSAKY  !u  COMPUTE  iHk  STARTING 
PtKlCJ  FCJK  1 He  sIMJLAIICN  (SCLJIICM  AS  A.4  UFFsEI  FkUM 
Infc  F | rt j r C c Sek  V A I I L A fch Ik  V • */ 

/i  HEX!  ASERJ  ICNS  lCMPgTc  lht  CffSfcl  VALuE  ftiR  EACH  RE CURD 
A > rttll  AS  UlKK  AjaIlIAKy  HmKA  4t  ILiiS.  •/ 


INlfcKNAL  PAkAMEItR  LEH.WTlCNs 


CFfstl  IS  lMLhl.4  (KUiMI  31  » ( ILT.VAR))  S 
SAMPLE  IS  IMekiM  (NGMlsj  , (TCl.VAk)); 

LAG  is  INTtkiM  i NgM  ( 3)  , I I G 1_  VAkI  ) ; 

KP  IS  S U g SC MP1  ICoTPUWCl  ,SI  jjt IJS 

/«*******«<♦<»»**»**»**«***»****«•*****•*<-♦»#*•»**»*#***#/ 

/♦  AUaIlIAkY  AS  SEk  T I wUS  FU*  GtliUAL  SIMULATION  •/ 

/•  SPElI  F RAT  ICN  ♦/ 


TGT_VAK  = CLUNT  IcANK.T  !M_.»Ek)  ;/*  ‘CUUNl*  FUNCTION  kEIoRNS 

lulAL  UUMueft  oF  REluKOS  •/ 

LFF S£ I I • ) - IjM_YEAh  - STA« I »Yt AKC*)J  * NU.H_P  J_YK  ( ♦ I 
* l±ir_PU  - sTAKI.FERlCCI*) I s 
SaMPLEI*!  * LFF  St  U«  I ♦ NP ; 

J'AAL AG  a l;  /«  LCNuCST  LAj  LAPElTEO  for  a muoel  »/ 

I * NP  ♦ MmALAgJ  /*  *11  Me*  1 NJt  a FL*  1 ME  SOLUTION  PEKlOO  ♦/ 
NU  * Sl.M.NP  ♦ MAALAo;  /•  ICIAL  NLMbCk  Cf  UdSLKVATICNS  */ 

l Asj t * ) * oF f st  r 1 • 1 - maalag; 

/*  IN  jkJER  FJ  FALILITAFE  TFE  Ik ANSuKl PT l JN  GF  MEL  AT  1 UNS » 

_ INF  c •<  1H  VA  njAo^L  fc  S Ah  t US  £_C  U JEScRIdE  I Mfc  HUQc  L M IT  H 

appkuPk  1 a i c mnemlm  cs • */ 


/•  EnOCCENCJS  */ 

/» V 

C IS  IN  ILK  IP  ( NoMIi  0 J,  (NGM  ; /*  CCNgUMPTICN  */ 

I IS  INTER!*  Ii.LMIIJ),  INL)  I J /*  Rtf  INVESTMENT  •/ 
hi  IS  INTERIM  C\U*I 10)  , INU) ) i /*  PRIVATE  WAGE  d ILL  ♦/ 


UE F 4 M IIUNAL 


t IS  INTERIM  INuMIlOl* INC) )•  /•  PRIVATE  PRGOUvT  */ 

P IS  INTERIM  /*  BUSINESS  PKUF  I IS  */ 

to  IS  INTERIM  (hUMtlul* INL) ) S /•  TLlAL  toAot  b!LL  */ 

K IS  InIEkIM  I NuM(Il) . (NG) » i /«■  CAPITAL  sicck 

AT  ENU  LF  YE Ak  •/ 

Y IS  INTERIM  INUM(lO).  INU  ) ; /•  NATIONAL  INCOME  •/ 


E XGC  L KuoS 
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e 7 

/♦ 

•/ 

oudJ2<tf0 

b 7 

uoo J29«0 

6 7 

o JJO2990 

8 7 

G ii  lNIchU*  INuMU  j),  INI.J  ) ; /»  GLVtKf*.'fcM  ifolWINu  */ 

C 0002500 

Bfc 

W 1C  li.URl.*  IN^MU  W )•('..)  1 ; /•  I A Ac  i •/ 

es 

11  1^  1 *«l  L h k M (<WV|  1 j)  ,!  ..Mil  / * l«t  iJ  VAn  i AuL  t ♦/ 

uJJ  ^/2  52  o 

sc 

W2  li  iUltrlV  (NuKUUilNul);  /*  oCVLNNMtllAL  *AoE 

JJJ J2530 

SI 

ollC  *■/ 

oO J J2  590 

9 l 

/*  AjStoNMENT  Of  lAC-lcM-oj  VACOcS  TO  IMtKIM  VAiWAoLtS 

•/ 

Jj J j2  950 

91 

UJJ J2>00 

91 

/»  IMS  ^(•ILvJLAh  FlPnt  SfcM  AT  loN  MwOlKfcj  Wifc  ujIR  1U 

*/ 

J25  70 

91 

/*  N |U»  I (it  fdr jioAL  LOoAl  iOI>  of  UkIA  ( 1 l M l- it*  i t i 1 IN 

*/ 

U Joo2‘^<JU 

91 

/*  THt  * a ANK  • MLE. 

♦/ 

O J0029^0 

91 

oo002600 

9 1 

V AK  0 1 i *IT>  = JAMUL4I  A(  1 • SJPPLCCll  1$ 

V>wo02  b 1 0 

92 

VAn«2:  2.m  = oAM9.oAIm1  2.  S^kPLt  121) ; 

t>  J Jd2b2  0 

SJ  _ 

V A K *■  j J Jlllh  dAAA.LAI  A(  3,  SAWtcC  31  ) i 

0 J j02O3 0 

99 

V Aftrfil  *2(1)*  dA^«LAlA{'VfS*)’r'Lfc(9)); 

llOyd^WG 

95 

O J J J2b50 

95' 

/*  UlrttH  tMJLoLNCtS  Af,0  oLMMIiCNAl.  VAk  1 A oL  t 3 AK  E 

•/ 

oo 0 02  06 0 

95 

/♦  AiCMNtC  A*  FCLLCWS*. 

0w<002fc  /u 

95 

o0o02b5u 

95 

/♦  c r c vAki»d  ♦/ 

v>  J00  2C9  0 

95 

/*  1 JO  ViA»t>  •/ 

o0i/02  /oO 

95 

/V  *1  T 0 VAM7  */ 

0OO02  710 

95 

/*  c To  VAKda  •/ 

Oul 02  72  0 

95 

/♦  P IC  */ 

00^02730 

95 

/»  « Id  VAf.JlJ  */ 

o Jo  02  79  0 

95 

/*  K II  >/Af«tfli  */ 

udo  J<!  /id 

95 

/*  1 ro  V An  » 1 2 */ 

O 0OO2  7c0 

95 

oovi02  / / 0 

95 

/♦  ASSIGNPeNI  Lb  LAuOcJ  MSTUklCAl.  CA1A  10 

CO002 7o0 

S5 

1.9l£KlJ4  VARIABLES  */ 

ou>i  i<;  fsu 

95 

o jo  j2o0u 

95 

F OH  J Ml  MAXLA^  111  ttj)  = d AAK.bA TA I « ,1 Abld) ♦ J) ; 

00o02  o l 0 

95 

Fu*  J = l I <_  'IAaUA^  Lt  1 »Mo)  * u&Nx.BhIm  1 / ,1  Aolv)  ♦ J)  ; 

U0O02O20 

96 

fUH  J - l ic  lAAlAo,  U F nlj)  = 3ANK.jHlAm,Uv»(lU»J) 

; 

0OOO2B30 

9 7 

o )002  d * 0 

97 

/» 

*/ 

ooo J20?0 

9 / 

/♦  HOi)U_l  cCLAFICNS 

♦ / 

00002  oOO 

9 7 

/* 

*/ 

o 0 0 0 2 a / u 

9 7 

/ * ««««  « mvum  ( «««* 

oooo2 ooo 

9 7 

oooo2d90 

9 / 

INCOME  : 

COO029U0 

98 

v ( 1 1 * Wl  1 1 ♦ 1 i \ > ♦cm  - R 1 1 > ; 

O000291 0 

99 

Pki  V.PRU): 

OOu02920 

99 

Ell)  - V1T)  ♦ km  - k2  ( T ) ; 

0OO02V30 

lUO 

i j «Abt i 

C Jo J2990 

ICC 

nil)  - *1  1 T)  ♦ *21 r | • 

OJOO2950 

10  l 

pnuf  11  •»: 

O0o029o0 

101 

PIT)  * M(l  - Win; 

OJ0J2S70 

102 

C2N5 JMP I 1 CN: 

0^002 90  0 

102 

c(T)  =»  AIPiim(I)  ♦ mI  PmA  ( 2 ) • tail) 

OOO02990 

1C2 

♦ ALPt«A(jj  * Pll)  ♦ ALPhAlSI  ♦ Plf-ll; 

O0O0  iuuu 

103 

1 *4Vt 5T MLNI  : 

OOoOiol 0 

103 

1(1)  = ut  1 A ( | * ♦ ot  1AC2  ) ♦ Pill 

OvIGdiOlU 

103 

♦ ulIA(3)*M(-1)  ♦ d£IA(4)»K(  I-l)  ; 

0 JO0  3030 

109 

P*  1 v_  wAot : 

OOOOiwSO 

109 

will)  = jAMIAtl)  ♦ oA*MA(2)  ♦ Ell) 

OO0O3050 

109 

♦ oAf.MAl  3)  *fc(  1-1)  ♦ aA.MkAU  1 • 1 1 1 1 I )-l  *\‘>\  i 

00003O60 

109 

CAPI 1AL : 

00o0i0/0 

1 C 5 

All)  * 111)  ♦ Ml-lli 

OOOO  3uO 0 

106 

oooo  3090 
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ASSERTIONS  FLk  Fitfc  REPORT 


N IS  SUBSCRIPT  ItMhY,  (1  ,TLT#,  l,  1)|; 

cji. tc amn.npi  - SiM _rtAk  ♦ i.*p  ♦ sim.pj  - zi /nom.pj.yr; 

CUT..PF  *»U0  l.»,NP  I - M J lr«P  ♦ SM.PU  - 2 , NUM.PJ._YR)  fr  l; 
CUT.LMJtLiN.NPI  - CAFK.LAoEL (VAR* IN)) ; 

OUT, YAL Jit N,NP)  » iCNTRlL«CATh1  VARlCN)  .TiNPI  ) i 


ASSfcKlICfi.  FCk  file  ccntkcl 


CONTROL  . SUM.  Yt*M  • > * SIP_YEAk; 
CCNlRUL.Sl  AM  .PthlUCi*)  = SIP.PJ; 
CUNIaOl. JJS.NUMI*)  = SIM.NP; 

CL.»  I r.u  L . u A l A ( 1 * ' ) = Gil); 


000 03 100 
uO J J 3 I l 0 
u JJ J j 120 
OuO  j 3 1 1 J 
JOO j J IAG 
Jo J J3  IbO 
uOj J 5 1 S 1 
OOJO_> 1 >2 
O Ou  O 3 I » J 

uo  J J 3 I'JO 
O J JO3200 
00003210 
udod 322  J 
OJu J3230 
0v0J32'#0 
uJw J 3 23 0 
\j  J v J 3 26 0 
l0oJ3270~ 
Oi)y  J 3 28  0 
O0O032S0 
OOJ J 33J J 
000  0 j 310 


1 lb 

CCM  RUL  .LATA  l 2 * * ) = 

HIT); 

00oo3  320 

1 16 

CC.\  I i\UL  . C A U I 3 » * ) — 

ildl; 

UoO J 3 3 30 

1 1 / 

cekTkjl • lai a I*,  * ) = 

R2TT); 

COOJ33A0 

1 lb 

CCNlKOL.CAlAib.*)  •* 

Cl  I) ; 

Ooo j3 3b  0 

1 is 

CcNl RUL • «A1 A ( 6 • * ) - 

l(T)5 

OoO J3360 

120 

CC  M kuL •JAIAi/f*)  = 

»l((); 

OOo03370 

12  1 

CCNTHOL. JAIAI 3,*)  - 

£(  I) ; 

OOJOJ  Jb J 

122 

CCNl KUL .0 A1 A ( 9 . * ) = 

Pi  I ) ; 

OOojJ  J‘>  0 

123 

CCMRUL.LAT  A (10,*  ) = 

W(  T)  ; 

0OO03A0U 

I2A 

CCNIKGL. JAIm< l l ,*|* 

K(  J) ; 

00 J J3h 1 0 

12b 

CC M KCL  .DA1M  12  .*)  = 

Y ( r 1 ; 

(JodjJ-V20 

126 

»*•< 

«***•♦/ 

000 03^3  0 

126 

/* 

*/ 

OuOO  3AA0 

126 

/♦  1M  ERF-  ILL  RELM  ICNartlPS 

*/ 

0 JOo  3/tbO 

126 

/* 

•/ 

OOOo  3A60 

126 

uouojwo 

126 

lOOJ3<»60 

126 

FGINTEk.cCMRGL.  1 IM 

_SEK  = t AFK.NUPqER; 

00o03  -t'J  0 

127 

PoliiTLK.OUcMENf  .RfcFKto  * C CM*\0L -REF  * I * ) ; 

OJOJiblO 

128 

I.C  J JJ620 

128 

/*  AsSERTUN  TO  CGMPCTE  1 ri  E NjMiiER  OF  RE  Pfc  T 1 T 1 LNS 

CF 

FIELd 

ooOO  3 b30 

128 

KEF  * */ 

OOcOibAO 

128 

EXIST. bAf.K.REFY  = Ot  L I M ( T 1 P_  SE  ^ . * • * ) / 3 ; 

OOUJJ5SO 

129 

/♦ * JuL 1 M * F oNl I 1 Cm 

SCANS  FLU  *••  lELMITEK  SYMouL 

IN 

THE 

O0OO3560 

129 

REClKD  TM_SEk 

( FI  El C E Nlk  t F ) •/ 

COJo3b7d 

1 2S 

OOoOibiU 

1 28 

FJR  J * 1 TC  A LET 

OO Jo3b90 

129 

EXIST. CCNTRCL. RtFtl J)  * t X 1ST . oANK . RlF • I J ) ; 

0000  3boo 

129 

FUK  J * b TO  12  LEI 

exist. ccMRhL.RbFiU)  * l; 

Oo JO  3b 1 0 

F OK  J = 6 1 L U Itl  LLM  kU  .rtl  » (J  »1  ) * sv; 

/•  KcCUKD  9%  INfllt  UCCMfcM  HILL  til  3 L T JU  INOiCATE  THAT  _ 
t.vJJoLNOLS  VAMUlltS  ART  OLNtKAftJ  FVtH  Tm'I  S PARTICULAR. 
SMJLAI ILN  KON  ♦/ 

CLCMtNT .REFAEC.KEf »i S9)  * SS; 

CJortcHl .MFKtL.l ULt 199)  « ' MUOC l_ I DYNAMIC  SIMULATION*; 

CcOMlNT  .Rtf  Kto.  VLUMSS  ) * *v(.iu*; 

LCOMcN  1 .kfcFnlo.CATt  199)  « * NCV-9  -JJ  • ; 

COoMtNl  ,nc)KU  .Pool  I SmEh  I9sI  * • V C l J*  ; 

CCCMENl • kE  F AEC  • AC  Il»C  A ( 99  I = *L.R. KLEIN*; 

CCCMtNT  .Ki.fi-  twCLMMEM  <991  * *cCMKuL  SULOTIUN  aLNtkM  ED 

FHsJ.i  SPECIFICATION  IN  MUJtL  L ANo OAol  • 


0OCU3620 
0000  3o3 U 
J J0  0 36A  0 
000036SU 
0000306U 
oOO  0 3b  7 0 
0 Jo  j 3o<i  0 
OJOO  3690__ 
U JOO  t ( JO 
OJOO  3 / l 0 
000J3720 
00003 730 
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/» 

/•  F uL  L L*  1 N*>  STAlhKEMS  *fcnfc  okNh^AICC  oY  IhC 

/• 

ft  I_Va*  IS  iNlMUHS 

NL  1 S I .4  I bk  IKS 

I 6 .<  M ia  McuIAi 

NA  k IS  *K(,LP  U l M_SLn  ) J 

NU-'iokK  IS  MtLu(  FiM_btkvl*u4kfciu(4))  S 

lYPfc  h ^u^lll.Vjtr.J; 

K A 4L,  l i -.  uFvCuPt  IlK_SEIt)  • 

KfcM  la  FiLt  i-II  1 1_!>ck  .4^^l,Ku^cr<lCC3>l  ; 
tNcMtr  L HLUlUf'.SU.LHAMUl; 

L A IS  b J lL  i.  ( II  t->_  Sc  b # 1 Uw  S_.Al.MJ  .-imL  1 l U»  b I ) ; 

a I **k  I la  J ; 

_L.  rt  a_  \ J M 1 a ^ 1 1 L j ( h «Nw  1 1 Nu  P l K i L ( i I ) ; 

NL.4_  P J_  Y*  I j U LLo  (r  mN^l  i f.JMKl  Li  i ) ) J 
cCJt  lo  FI  tL~(  lYffc  ,th#h  C<»  J I J 
UMIj  1 j F 1 l c □ I r Y P L • LhAh  ( Z 0 ) ) ; 

LAjfcl  Ij  MLlL(NAKL'lhA.\(4)  ) S 
T 1 TLL  I » KlcLi/(NAf*LtchAi\(^J)  ); 

YEmR  IS  Ml  U:  ( a I m F T , MMt  F U t S ))  ; 

PtKluJ  i a t 1 C L I j I <«  f.  J • i U v.  fc  rt  1 (_  l ^ ) ) i 

l A 1 S T la  oKL  UP  ; 

Jjk  is  ^K^cPiLxisn ; 
uC  w/l  «I  1 j ot*CJP(LljK); 
hfcFkto  IS  IMUlKlLucPcM); 

cA.NK  IS  oKL L_P  ( o l SK  ) 5 

fl^_Str\  i a iAIlk1pIoANi\); 

J 1 a aJJaUk  IP  I ( ( 1 . L . Ill  1 

cC  ,li<a  1 a bFf.JP  ( L X 1 SI)  i 
ntF.i  la  F i t LL  1lC/»  1 hUL  )S 
rfcF< i IS  FIcIo(oaNK); 

_pf i n i iM_ i s tktup; 

L-Cwtv.c.  »4  1 1 > wrCjP  (PCI  MlK)  i 
rt  fc  F k t u IS  F IclJlCClMfcM  I* 

CCNlnLL  ia  urCoP(fllMLft)  • 

H tScK  la  F llUilCM  8uL  I ; 

f is 

$ A » l o jo  1 : $ o J 1=  V»«n  » ( .‘4 ) ; 

*A»i  J JO  til  1 1 JovJ^  - 1 l i<P  ) ; 

1 1 a o J L ia  IK  I b k 1 F’  ; 
tlojJS  ia  iMtrtiMl 
lAijjjj’*:  s i oo  j<»=  S 1 .4_P  J " 2; 

slujj*  is  IN’.  Chip; 

% a 1 1 ji  j1j  '•  vi  oiuS-l  ~ l; 

l I JUOJ  ia  If.  1 t K i F ; 

FAlluolj:  SlOCLU-LAollllS 
P AaLAj  la  IMEkIH; 

a loo l J la  1 A I L * 1 K • 
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OlSK.CCAlKCC.r 1M_SE K . 0 Al A(4 ,NP |« W2 1 AP.T1NPH  } 

SA0024: 

OlSK.CLATKOL.il  H_  SEK.  JAl  A I J ,NP  l-'l  1 I AP,  T I AP)  ) ; 


A. 3 (Cont.) 


UGC13050 
vOO 1305 l 
OOC  1 3052 
OUOl 3053 

OCC  13054 

GOO  13055 
00013056 
OOu  1305/ 

\j\j6  1 30  58 
OuG 13059 

OG Cl 3060 

00 0 1 30  6 1 
OoO  1 3062 
Oc 01 30c 3 
ui  C l 306  4 
OG J 13065 
00313066 
*\>00l306l" 

OOC  13068 
OOC  13069 
OOg  l 30  To 
uO J 13071 

O 0 C 130  7 2 

0 0 *j  1 JO  73 

3 i uOo 130  74 
OOC  13075 
Og  C l 3 J / 6 
uOC 1 30  7 7 

oUC 13078 

uCw1307$ 

OOC 1 3 j80 
OOC 1306 l 
00013082 
OOC 13083 

CO Cl  30 d 4 

obo l 3085 
00013066 
OCO 1308/ 
00013088 
0GG13J89 
U0C13J9J 

JO"J  130TI 
OGC130S2 
00G13O93 
OOC  13094 
OOC 1 3055 

u G 0 L 3096 • 

OoTl3oT7 
0v*w  13058 
OOC 13099 
00  o 1 3 1 00 
jGC 13LQI 

GGC13102 

OOG 131 03 
OOC 131 04 
OGO 1 31 05 
0 JG  13106 
00  C 1 3 1 0 7 

OOC  l 3 10<J 

OOC  1 3 l o9 
gJCIJI  10 
00013111 
OOOUl  12 


•; 

4 


IACC2  3: 

Cl  iR.vCMKUl.1  1 M^StK.  JAI  A ( if  iNHliKUh  7 (UP  I » ; 


SACL22: 

D1  >^.CCNIk(.L  . T A(  l ,N.'  | = o(  NF  t T 1 UP  ) I ; 


SACC21 : 

Li  SK.iCN7*(jL  . f lrt_ill*  .*ANLfc  .oeS.No.3 I FLkcAChW  1 M_3fch  1 * S i *_UP  i 


SACC2 j: 

Cl  IK  .CCMkCL  .1  IM.St  «*-  .KAUyt  .Si  AK1  .PlP  ltviXlLKi.Hi.nl  I 1 M.H/' 1 = 1.4.PJ; 


SACC195 

HSX.CCMkGI.I  M_SEk  .kANCL  . SI  Ah  I . r l Ak  I MJk  EAwW  U M_  St  k I - 3 l «3_  V c Ak  # 


CAP  UAL  : 

MNP.l  (NP>  > Ml  4P.  TifcPil  ♦ MNP#  fclCCUSlUPf  Is 


IA  CC 1 9: 

h OK  J * 1 IU  .M  A X L A l»  MNP.JI=t>liK.oAUK.IU.$lk.JAlAlU.ilJJlO  ♦ 

j) ; 


»ACC1  3: 


kLk  J * l ro  NAaLAG  PlNP^l^OUK.aANX.Uu.Stk.UM  A(S.  >1  oOl  1 * 


SA0C12: 

PGrt  J * 1 IU  MAXlAw  fc  l NP • J ) -01  >X«cANK.I  IM_}tK.UAlA(o»  l l 00 1 J ♦ 


VAR  #4: 

t»2(NP.T(NPM  *Di  SK.BAAK.  I I ^ 3£P  .uA  I A U , M Ow  l A ( fi?  I I*. 


VAR# j: 

1 1 1 NP»  I iNP))-«JiSK»cANK,  f 1M_  jLK  «G  A f A ( i « ♦ U.OIMUPI  I; 


VAR  >2: 

mINP#T (NP)J-JI  jA.J AMI. TiP_StP.JAfA(2 ,1100  16SNP)) S 


VA  R $ l : 

GJ f.P,  f iNP>  >»  Ji  j K « 1 AUK.T  lH_Sfcfc  . Ot*  1 * > 1 . HOClbiUP  1.1  i 


lACCil: 

LAOifCJKfc  AuH*LAul-C.f  1 Sc  I I FU* fc AuHSl m G)  - HAXLAu; 


1ACCJ9: 

I (NP)*MP  ♦ MAXI  AO*. 


sACCOd: 
PAXtAO=l ; 


VACCU7: 

SA.'PLt  INP.MJRL  Auifil  Aoi-iFPSf:  H Fukk ACHILAfe I ♦ UP  5 


»ACLO<>: 

Cfk  jtl  IM»I  Si.l^YtAK  - J1  SK.lAUK.I  IP.Sck  • kAituc  • SIAM  • VcAR  (m|)  » 
01  SK • L AAK • f I M_  >£  ••  . RANG  £•««!<  <*..Po_  V k ( N ) f IS! 3.PU  - 
LI  iK  .L  A «>v  . I J M . jJ  k ,mM.u  UK  1 . Pi.  h 1 LOIN)  ) . 


tAucoi: 

OolPUl  . irtAKl  41  **Yt  Art*  J 


iACC 022 


COC  131  1 3 
UUC  1 3 1 1 A 
wOJlil  16 

oOC  1 2 l 16 
oOGWlif 
C0G131 Itt 
GC\,  1 51  IS 

000  13120 

0001  3l2l 
UwC  l 2122 
0001  1125 
uOL  13129 
ooC  12126 
uOJ  i 2 1 4 6 

JJOl  3127 
OJO  l; 128 
uuul 3129 
0^0131  i J 
00043131 
000  1 31  32 
UOC131 3 J 
OoO  13139 

uOJ  13  136 

J I ciuu  1 31  3l> 
o 00131 3/ 
OOC  1313d 
oOOl 31 39 
J ) u 0 0 1 3 l 93 
OJ 013191 
'ouCiJl92 
00  C 1 3 1 A 3 
uOO  13199 
OUC  13196 
oJ 013196 
u 00 1 3 l 9 7 
cw0l5l98 
oOC  12199 
OuO  l J l 60 
OOC13161 
uuC  121*2 
_ vOOl 3163 
Oov.  1 >1  69 
oOC 1 2 l 66 
wOv-1  3166 
Uo»C  13167 
UJu  13 1 6tt 
uuC  l 11 6V 
JOv>  l 3 1 CO 
Oo  0 1 3 1 6 1 
Ov)0l3lt2 
UOO 1 31 63 
oow  1316  9 
00013166 
00  0 l 5 1 66 
uG  0 l 3 l 6 7 
GO*  l 3 16d 
LoOl  3169 
o o 0 l i l 7vi 
OOO  13171 
GOwiJl 72 
OOCUt  7 3 
Ou0l3l 79 
o v 0 1 31  76 


A. 3 (Cont.) 


372 


CUT  PUT .PERI 00 l N) ** PLRIUO* J 


SACC03 : 

CLIPuT.LAjEL IN) =*LAo£L* • 


AACL04S 

VALUEINI*1 VALUE* J 
lACClb: 

CLT.VEAK  (N,NP)^SM_  VEAk  f ( NP  ♦ SIM_P0  - 2)  ✓ 

U ISK.  U ANK.f  I M^S Ek  . RANGE  . .’4 PU H l h » i 


1AU016: 

0 I N *NP 1*  MODI  NP  ♦ H0OO4  ,D1  SK.EANK  • T M.SER .RANGE  .NUM_PO_TK  (N)  ) ♦ l 

$acci n 

C I N t NP I* 01 SK .DANK . 1 1 H.SE8 . NAMt .LABEL! ilJOQlCNt l» 

SACOlb: 

OUTVALUE  (N.NP)=U1  SK  ,CUN  I MJL  • I 1M_S  LR  .DAI  A I MOOOl  ( N ) • S 1 0002  I NP  I I ; 
AA0CO5? 

TCT_VA«<»CJUNr!  EXIST  .EANK.T  1M_SER)  ; 


SACC10: 

NOSlM_NP  ♦ MAXLAGJ 


/♦ 

✓* 

/* 


SIMULTANEOUS  ASSERUCNS 


PR  I VLPRQOJ, 


E (NP.T 4NP) )*VI NP. I INP) ) ♦ K(NP.ilNF)) 


^(NMINP)I  i 


Investment: 

I I NP  • 1 (NPIIaJETA(I)  ♦ UETAC2)  ♦ PInP.TInPI)  ♦ »ETA(3)  * PIN P. 

tiOOC5(NPJJ  ♦ C E I A I 4 ) * KINP ,* It005( NPII 8 


HOC  131 76 
UO 0131/7 
OOClil T 8 
ooo  1 3 1 1 9 
00wi3ieu 
OUGlJlbl 
UJC  131 82 
00013183 

ooc  13 1 e<* 

UOG  i 31  85 
00013186 
0001310/ 
u JO  I3ld8 
;ooCl 3189 
0 J w I 31  90 
uJO 1 Jl9l 
UC  13  19? 
U JC 13193 
OOO  13194 
uovjmvs 

00*13196 
00*  1319  7 
00cl3l98 
~*gC13199 
0UC13200 
00013201 
oOC 13202 
OO0 13203 
UJC  1320't 
oJ*.  1 32c5 
0 0 L 1 3206 
GO  L 132C / 
UOC132C8 
OOC 13209 
ooJ132  10 
UUC  13* 1 1 
00 J 132 12 
G0C132  13 
003132  16 
00013215 
uOO  1 32  16 


PROFITS: 

P1NP.TINPJI *V1  NP.T INF))  - R I NP . T I NF ) ) . 


OU0132TT 
000132  lb 
OU0132  19 

INCCHE.  00013220 

HNP.T(NP) 1«CINP.T(NP|)  ♦ I ( NP»  T ( NP ) ) ♦ G(NP.TfNP))  - K I NP , 1 1 NP )) 000 1322 1 

00013222 


CUNSUMPT ICN: 

CINP.MNPI  l*ALPHAl  1)  ♦ 
TINP))  ♦ aLPhAI4)  *• 


ALPHA!  2)  * Vi  1 NP  *1  |NP ) ) * ALPHA! 3)  • 
PlNP.HJOOSINPlI  ; 


TOT. rage : 

r~i  n p • i inp)  )3«i  ( np«  i ( np 1 1 ♦ R2Tmr*  TTfiPTn 

PR  I V_  rAGE  : 

to  1 ( NP  • I (NP)  )*GAM3AI  1 ) ♦ OAMPAI21  • EINP.JtNP))  ♦ GAM4AI3) 
NP. HU005I  NP)  ) * GAMMA  1 4 I • UllNMlNPH  - 1935); 


/•* 

/♦ 

/• 


LNJ  UF  SIMULTANEOUS  URLUP 


go *1 J2 2 3 
OoO  132  24 
PI NP  * oGC 132  25 
0 JJ13226 
oGC  13227 
00013228 

0oJH229 

OCC1323 0 
UO J 13231 
000132  32 
00013233 
00013234 
’ 00013235’ 
oGO  132  36 
00013237 
oO  C 1 32  3d 


E I 


♦/ 

*/ 


A. 3 (Cont.) 


*»TiCN  SAMt 


1)1>4  RtfiliOt  IN  I|M.itKllOF_VA«i  IN  CuNlitbl  IN  01SK*  SUBSCRIPT 


U*0  *2  CC**«INI  IN  fttFtfELUXlST.4Ilfc.0<X.MtN1.MFHtC)  IN  UCCMtNT  IN  UIS*»  M f l 0 J C«AR l • J ) 1 


378 


FL  1MCR 


M**  IN  CNML.PAaAN  in  1NPU1  IN  IE*M.  F I EL  J ( NJMtK  l c ( <* ) ) 


ASSERTION  *AMfc 


4 


388 


A. 5 (Cont.) 


■■ 


■ 


— 


4 


- 


APPENDIX  B 


This  ApDendix  present  the  complete  PL/1  source  listing 
of  the  Cycles  Processor.  The  main  Cycles  procedure  is  used 
as  a monitor  which  calls  on  each  of  the  internally  defined 
other  components  of  the  processor.  The  followinq  procedures 
are  used: 


NAME 

CYCLES 

STRGCON 


PRCQMP 


ANALCMP 


LINKAS 


CHKMULT 


PSIMASS 


PRECEO 


FUNCTION 
Main  monitor. 

Depth-Fust  Lineai  Algorithm 
to  find  strongly  connected 
components  (S-C-C) . 

Printing  routine  for  elements 
which  are  S-C-C. 

Procedure  for  analysis  of 
S-C-C. 

To  "link"  storage  entries  of 
S-C-C  in  the  Associative 
Memory . 

Checks  assertions  with  more 
than  one  target  variable. 
Print  simultaneous  assertions 
under  a common  header  in  the 
specification  list. 

Used  to  rank  nodes  of  the 


RANK 


3^ 


Digraph . 

Called  by  PRECED 
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UANA  796?  C5/CW78  PL  1 C-VE  R -0SJG78 

v I *S  I C*  S • S 


OS/’tO  PL/1  COMPILER  Cf)  ON  VMOS 


PAGE 

DATE  78.1 


pl/i  f Co^Piira  coughs  SPtciruo  are  as  follows-- 

A,»  , * A C A 0 


CC*PIlf  -II  PI  M/CRG  PROCESSOR 


CCMRUER  OlAoVOSlICS. 


COMPILER  COAT  REQUIREMENT  FXCEEDf.)  St/f  Gl  VE  *«  • AUXILIARY  STORAGE  USED. 


end  cf  diagnostics. 


S r*T  LEVEL  NC  ST 
1 


SOURCE  LISTING. 


CYCLES:  PHOCELUA?  < N , P C 0"P  , SUB > ; 

/•MAIN  NCttjTGF  FOP  IMF  'CYCLES  ANALYSIS'  PROCESSOR. 
IMfmiaS  VAklA'tLCS, ALLOCATES  SPACE  AND  CALLS 
PROCEDURE  'SIRbCON'; 

ALGOMIHM  TO  FIND  STRONGLY  CONNECTED  COPPONENTS 
OF  A GRAPH.*/ 

/•NCf*.  'DEPTH  E 1 NS T SEAVtH  AND  LINEAR  GRAPH  ALGORITHMS' 
It  Y PObtRT  TARJAN 

PUbLISHFD  IN  SIAM  VOLl,  NO.?,  JUNC197?.*/ 


/ * I H t oRAPh  REPRESENTING  RILATI ON  SHIPS  BETWEEN  DATA 
NAMES  iS  GIVEN  Pi  AN  A 0 J A C E f LY  LIST  STRUCTURE  'ADJ'. 

THE  STnONGLY  CONNECT  LT  COMPONENTS  REPRESENT  EITHER 
CIkCOLAP  DEFINITIONS  0*  SETS  OF  SIMULTANEOUS  ASSERTIONS 
10  !U  cROUPED  FOA  SOLUTION  Pf  I PE  SYSYIP.*/ 

/ * 'N ' IS  YHE  NUPGER  of  VERTICES  CF  THF  6 A APH  WHICH 
CORRESPONDS  TO  THE  MJHblH  OF  DICTIONARY  ENTRIES  IN 
THE  CONTE*!  OF  « 0 P I L SYSTEM.*/ 

/•'PCOrr'  IS  A POINTER  TO  A LIST  CONTAINING  pointers 
10  EACH  GROUP  CF  STRONGLY  CCNNFCICD  COMPONENTS 
'PIRLIST*.  IF  NO  CYCLES  ARE  FOUND  PCOMP  IS  NULL  • / 

/•'SUM'  is  a oit  PARANcYlR.  WHEN  set  nu  analysis  IS 
DONE  ON  i-t-C  AND  THE  LlSY  OF  S-C-C  IS  NOT  RELEASED. 
USED  WHEN  'CYCLES'  IS  CALLED  FOR  SUBSCRIPT  ANALYSIS*/ 

PCL  THACIi.  INlRtCblN  F 1 >E  0 .CHAR  C •)  ,P01  yl  F R)  ; 

DC  L FWACEA  ENlRlCdlN  FIaFO.CHAF-C*),  PC  INTER, dlN  FUED); 

PCL  1 RDjP.INVmY  PASE D < *D JMP) , 


I 


391 


-ana  7*6!  u 5/OW7R  Hi  l C • Vi R -0 5 5 0 7 8 

SIM  LEVEL  M 


« i 
6 1 
7 1 

« I 

9 1 
10  1 
11  1 
12  1 
1 1 1 


2 At  LOC  b I :«  f l<*0, 

2 «UjH  l IS  »U(D,  /«U'.f  0 HOWS*/ 

2 tJiru  e is  r i x r o • / • ;#i r c cclumss*/ 

2 I'llHIidi  H » f A (ALI.CC)), 

> COL  o I (•  n AID,  /•CCEUP.N  #•/ 

/•SUCCESSOR  COLIMN  •/ 
i CVAlbf  1-iN  A 1 * t D . / • C Cl  U\N  VAlUf*/ 
i *0*  L IS  I 1 A'  l , / • kP*  X*/ 

/ *HH iCcCk*  SCk  AO*  •/ 

^ k V A i l<  f 0 IN  1 1 * £ 0 ; /*R9«  VALUE*/ 

bCl  ACkDkA  (SlkV  ( b I N t I A E D , PO I N I ( R ) ; 

DCL  PR1 AiSA  ESTP  T ; 

DCL  ACkDk  tl,!1I  ( u I N fl»C!>,P0lNTk9); 

DCl  fLACiNK  cIMI)  nr  I r,  l r ( 'j'fO; 
ocl  ha^'h  b I T < i ) m iviM'O***); 

DC*.  KACklS  4)  i M 1 ) f A I nil('O'B); 
wCL  PCo*P  PTR; 

DCL  SUc  ol  Ml  ); 

DCL  C*DFR(fi)  PIN  FIXED  C X F CTL; 

/•'  A»AP":  ARkAT  USED  TO  AAK  ADJACENT  T LIST  INTO 
ACVUiC  PI!  ALjACikCT  **  A 1 R ! A TOR  ORDERING  • / 


1 A 1 

1 5 1 

16  1 

I 7 1 


1 * 

19 

20 
21 
?? 
2 ’ 
2 A 
2 * 
2 4 
27 
2* 
2<; 
so 


DCL  APAr(N)  9IN  flAfO; 

CCL  1 PTPLIST  bAS  El)  (PCOrP), 

4 ,Cr>)i,  HS  clN  FIXED,  /•*L»E*ER  0 T LISTS  0/  S-C-C*/ 
< PTKC7P  C*t  Rt  If  k (PL ROUPS))  PTR; 

/•PtlMin  1C  lACh  S-C-C  LIST  •/ 

DU  1 (CM  t'ASfb(P), 

2 Is  CIV  I IN  f I » I D , 

2 LINK  PTk,  /•Mir.  TER  TO  NEXT  COMPONENT  •/ 

2 LIST  PTk,  /*rolNTlR  10  ADJACENCY  LIST  • / 

2 rtr  Chaa  (2), 

2 ST  AT  _L  1 TS  b 1 1 <7); 

DCI  1 CPTlIS  * AS  E 0 4 1 ), 

2 ADJNOOI  BIN  »1»10, 

2 TIPI  bit  I 1 A ( D , 

2 MX!  PTR; 

(CL  (P • I TnS 1 «LAST  ,L)  PTR; 

DCl  4LvWLlk<(S),  NU*MM,  STACK  (N  ) ) BIN  I I Af  D CU  ; 

ICL  (V,  I ,PH  « COUNT)  fcis  MAID  ; 

dCl  uSwTaca(s)  r»|T(i)  ctl  ; 

:ci  ou-ru.)  ? i t ci)  ctl; 

i CL  MkST_TI.vC  Mill)  IhlT('l'P); 

M’l  Of  IT  LIST  4'STA*T  LTCLIS  ANALYSIS'); 

Ai  L Ct  * I f l OWL  ]r,K  ,NU*Tb, STACK  ,ONSTAC  X ,ONC  XP  ; 

ALLOCATE  ORDER; 

LOOM  I *u; 

A*  *P  O; 
l*CC*P*MILL; 

S T ACa *10*1 IN* ,MJR0*9; 


596 

597 
S9B 

599 

600 
601 
6C2 
60S 
60  A 
60S 

26 

22 

28 

29 

30 

31 

32 
3 S 
3A 
3S 

35 

36 
3? 

38 

39 
AO 
A 1 
A2 
A3 
A A 
A5 
A 6 
A 7 
A8 
A9 

50 

51 
32 
Si 
SA 

55 

56 

57 

58 

59 

60 
61 
62 
63 
6 A 


PAGE 
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»AN«  7^63  05/05/78  PL1C-VER -033078  PAGE 

S TP1  LEVEL  ME S 1 


3? 

1 

ON  S TAC A *'0'B; 

66 

3! 

1 

oNLPr  = '0'i 3; 

67 

3* 

1 

DO  V=1  TON  ; 

68 

j: 

1 

1 

DO  while  <N»PP(v)*0)  ; 

69 

zt 

1 

c 

C 4 L 1 SfOGCON  ( v , N ) ; 

70 

37 

1 

2 

END  ; 

71 

1 c 

1 

1 

END  ; 

72 

39 

1 

FREE  LOWLINA.NU-B, STACK, ONSTACK  .ONCPP  ; 

73 

40 

1 

IF  SoB  Tiit.%  ft  f TURN; 

74 

/• 

75 

• 

75 

* PRINT  ASSERTIONS 

75 

« 

75 

•/ 

75 

7V 

4? 

1 

L A L l P ft  T AS  S 7; 

60 

4’ 

1 

If  PCOhP  “*  NULL  then  call  psimass; 

ei 

45 

1 

CALI  PkUIIIIM; 

82 

4 ( 

1 

-LSFCPP:  l N T * Y (N.PCOPP); 

83 

47 

1 

IF  (fCOMP~*MJll  f ”FLAG»LS)  THEN  DO; 

84 

49 

1 

1 

DO  WHILE  <*GftP.PS>0>; 

85 

50 

T 

c 

FIRST  * PTPCHP (AGfcOOPS ); 

86 

51 

1 

2 

do  while  < f irst “ = nule > ; 

87 

52 

1 

3 

P=F  IRST; 

88 

53 

1 

3 

II  "Sue  THIN  CO  WHILE  (P->L  1 Sf=NULL>; 

89 

55 

1 

4 

L*P->L 1ST ; 

90 

5<f 

1 

4 

P- > L [ST  =L->N£X  T; 

91 

57 

1 

4 

FREE  L->  CPPL IS  T; 

92 

5 5 

1 

4 

f 10; 

93 

59 

1 

3 

F IRST  =P->L  INK ; 

94 

60 

1 

3 

FRCt  P->COPP; 

95 

61 

1 

3 

END; 

96 

6? 

1 

c 

pr ftOUPS= AGROUPS-1; 

97 

65 

1 

l 

END; 

98 

64 

1 

1 

•GROUPS**; 

99 

65 

1 

1 

FREE  PIRLIST; 

100 

c6 

1 

1 

E ND; 

101 

67 

1 

TOT  SKIP  LIST  ('END  CYCLES  ANALYSIS'); 

102 

/•  */ 

104 

/•  DFS  ALGORITHM  TO  FIND  S-C-C  •/ 

1C* 

/•  */ 

106 

107 

68 

1 

'UfatCH  : rkocicuil  (v,h>  fcf  Cursive  ; 

106 

/•  PROCEDURE  FINDS  STRONGLY  CONNECTED  COMPONENTS 

109 

(FFAfPEMS)  OF  A GRAPH  USING  A 0 T P Tm -F  I R S T -SE  A RC  H 

109 

PfHCu  IN  A RECURSIVE  SCl'tPA.THC  PARAMETERS  ARE 

109 

DtSCR  1 3 L D AS  FOLLOWS: 

109 

'v'  IS  A vtrte*  of  the  graph 

109 

'N'  IS  IML  TOTAL  HUM OCR  Of  VERTICES  IN  THE 

109 

GRAPH. • / 

109 
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t,»M  7t<.3  L'./ci/re  pi  ic-v,r-pj:o/6 


PA61 


SMI  If  VI  l M S * 


IIS 

/•  T (if  Pclhllf  10  T M l AOJAlfNCr  LIST  STRUCTURE  'ADJ'  116 

i'  civin  it  it.tiut'  ■icnn',  i h i suuum  '»oj'  116 

olVfS  Ilf  I l(!g>l  11  IHf  IM  IUU  hi  SI  S AN  0 ADJAllhT  116 

kO«U  vf  IH>  !v>>li,l  yltlll.i/  116 

119 

/•  IFMi.lIIONS:  170 

'1091  !•.«  W ) ' Of  A VERUA  V IS  Iff  SBAllfSI  VtPTtI  170 

• hlCo  IS  IN  IHI  SAP!  C.i|APO:.fhl  AS  V AM  IS  RlACHAbLI  170 

hi  TrA.EKSIAG  Itf!  CK  10H;  1 A f l APIS  ISllOkCO  B»  A1  170 

HOST  CM  ' ROM'  OP  'CROSS-llNA'  IAN  A AC  10  A VERTEII  170 

Aik  l ADI  Kf  I C>  f 6 1.  170 

170 

'V'  IS  TUI  BOOT  Of  A COkPrSf hi  Iff  LGhllhAtVMV  •/  170 

12  7 

/•  TPi  fOUOVINb  APaATS  ARE  * A INTAINfD  IN  THIS  178 

p«ocid„pl  f o a ini  masons  nmiuiit  oiioy  : 178 

l 9 k l 1 N k : 10  'HP  f 0 A t A Of  lOallhA  VALUES  OF  128 

IACII  ttlffl  178 

hl'nf)  : 1"  NU»ofk  tACH  V l B 1 1 I AS  If  IS  TRACID  128 

S I A C K : 10  fusil  f«l  V l R I 1 Cl  S AIRtAof  IRACCO  Oh  128 

A STACA  128 

CASTACA  : 1 0 VE«lfV  A V l » 1 f A IS  PUShfD  ON  S T A C K 178 

/•  PIR  IS  A roiMfa  OStO  10  IflP  1«AC«  If  UlPfhlS  128 

Ih  S 1 A C A •/  128 

15/ 

f • *co»p'  is  a STBucU/«t  used  ic  <u  r tm  el'menis  136 

kHICH  ARE  S lkCM-ir-CCNMCl  l D «S  A 11SA10  HS1  •/  138 

139 

Dll  1 Aljr_fhTI!V  t*«Sl  D(ADJNP),  606 

. AI ICC  r IA  f 1 >E D , 60/ 

2 MSI  0 LIS  MAID,  MOSfD  kC.S*/  608 

2 Cl'IfD  ilk  lll'l,  MUSTO  COlUKSS*/  609 

.'  IMPHSIK  iff-R  (ALLOC)),  610 

3 101  u I A flAfl,  /■C(/I0*h  »•/  611 

/'SUlCiSSOR  ICLUP'l  •/  612 

! LVALUE  »1N  MILD,  /•ICIUP*!  VALUE*/  615 

3 kfk  .11.  MAID,  f*  k Op  • •/  61* 

/ *1  » 1.01  C l SSCk  R0»*/  615 

i i VAlol  fir.  f IBID;  /ARP,  V A l Of  • / 616 

oCl  hCRPfA  I'.lkf  CtlA  f l>f  D ,P0  I’l  1 f R >;  1*1 

III  1 CoM  iASfO(P),  1*2 

7 11.  otlMINfMLO,  1*3 

1 l ISA  Plk,  /a°OINTIW  111  MAT  CO«fCN£hl  •/  1** 

2 11SI  UK,  f.POIMII  To  AlJACrhCT  HSf  •/  1*5 

. III  CHAM.'),  1*6 

? illl.llll  Allllli  I*/ 

011  1 CMIISI  I’ASIO(L),  1*8 

7 A i.  J h a D I U 1 N f I « l 6 , 1*9 

2 1f"l  Ills  FIAFO,  150 

I lllil  fll;  151 
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7! 

74 

75 
74 
77 
74 

79 

60 

81 

83 

85 

81 

87 

8« 

9C 

91 

9? 

9» 

94 


95 

94 

97 

94 

99 


100 

101 


107 
10  ! 

104 

105 
104 
104 

109 

110 
111 
11? 
1 1 3 
114 
1 1 5 
117 
11* 
HI 
123 


7*4  3 

05 /OS / 74 

PI 1C-VLA-OJ3078 

If  VlL 

Nf  5 T 

2 

DU  CP.F  JRST ,1 AST,L,*DJKP>  PTR  ; 

152 

2 

HI  f "IN  fIXID  ; 

153 

2 

DCL  ( J • to  1 UlN  FIXED; 

154 

2 

Del  CrPlOOF  eiN  riJUO  ; 

155 

2 

CALL  ACuDHACV.ADJMP); 

156 

■> 

LOU  IN*  (V),NU.MP(V  ) .1  = !♦! ; 

157 

/•  PUI  V ON  STACK  Of  POINTS  •/ 

158 

2 

CALI  ADi.  (V  .STACK  ,PTR); 

159 

2 

ONSTACK(V)  * '1'B; 

160 

2 

1 F ( AOJMP -NULL  ) THEM  GO  TO  MCA  D J ; 

161 

2 

iF(RoStDsiJ)  THEN  GO  10  NOAD  J ; 

162 

2 

DU  J=1  TO  ruseo; 

163 

2 

1 

W»(MKICS(  J)  .COt  ; 

164 

• 2 

1 

If  (W-0 1 THIS  GO  TO  SAW  ; 

163 

/*  • is  in  mi  ad;»cenct  list  of  v • / 

166 

2 

1 

% 

If  CNUPOU>  = 0>  /*  IV.W)  IS  A T ®£  E ARC  */ 

16? 

2 

1 

imln  do  ; 

168 

2 

2 

CALL  $ 1 AG  C ON  (w,N>  ; 

169 

2 

i 

LORE  INK  (V)**’IN(LCWL  JNK(V)  tLC«LINK(W))  ; 

170 

2 

c 

End  ; 

171 

2 

1 

USf  If  ( (NUrnCWXNliPBCV)  )40NST4CK(N)> 

172 

/«  ( V » to ) |S  A FROND  or  cross  LINK  •/ 

173 

2 

1 

THEN  LOtoLINK(V)=MI'/(lOtoLl.NK(V)  *NUMe(W>)  ; 

174 

2 

1 

SAM  r 

ENO  ; 

175 

2 

NOAD J : 

IF  (LOtoL INK(V)  =NUMOfV>) 

176 

2 

then  oo; 

177 

2 

1 

F IRS  T*NULl; 

178 

/•  V IS  THE  ROOT  OF  THE  COMPONENT  •/ 

179 

/•  STAR/  A NEW  STRONGLY  CONNECTED  COMPONENT  */ 

180 

2 

1 

COUNT  s COUNT ♦ 1 ; 

181 

2 

1 

CO  VMILF  CnUPP(SIACK<PTP))>*NUMPCV)1(PTR>0))  ; 

182 

/•DELflE  ThE  POINT  f k CM  TOP  OF  STACK  AND  PUT 

183 

IT  IN  THt  CUtoRcNT  C ON  PONE  Nf  •/ 

183 

184 

2 

i 

onstaca(stack(ptr)>*'o'b; 

183 

2 

i 

GNCrf<STAClkM*TR)>*-1'e; 

186 

2 

i 

AM AP  IS  T AC*  (P1R))*C0UNT; 

187 

2 

it 

ALLOCATE  COMP; 

188 

2 

Z 

IF  F i ° S T SNUL  L THEN  F|RST*P; 

189 

2 

< 

ELSE  LAST->LINK»P; 

190 

2 

2 

P-> 1 nOEX-SIACK(PIR); 

191 

2 

i 

P->1  I N'A  -NULL  ; 

192 

2 

l 

P->1  1ST  = NU  L L ; 

193 

2 

i 

LAST  *P; 

194 

2 

& 

CALL  DELkTE  (STACr.PTR); 

195 

2 

4 

END; 

196 

2 

1 

IF  CFIKSr->ir»K"?NULL)  THEN  DO  ; 

197 

2 

2 

IF  (*SUct)  THfN  l A L L A N AL  CMP  ; 

198 

2 

t 

If  CPCO-p-NUIL)  THEN  ALLOCATC  PTRLlST; 

199 

2 

k 

IF  SUL*  THEN  f MPC  COE  *0  ; 

200 

2 

i 

CALL  PRLOMP; 

201 

AS*  TOO'  U‘/(»5//A  Pi  |(-*i»-OJ3u78 

SIM  If  »f  l Vt  5T 


124 

> 

A 

• 1PC*P<iri»,jU«*S»«fl*ST; 

20  i 

1 25 

2 

i 

If  (C»»C0frl  ‘ 5 *50ii)  IMS  LlSAA>, 

2 03 

12? 

> 

4. 

f SO, 

>04 

1 >» 

2 

1 

list  fair  clpP; 

<05 

124 

> 

1 

ISO; 

>06 

1 50 

2 

0SC!*P-  'G'b; 

>01 

/•  1*  IC*4AL  f nOU  >*JhfS  •/ 

>06 

1 51 

2 

nt : rKdtM  ( ¥ ,i i «c» ,t*'K > ; 

>09 

1 5? 

3 

.Cl  (V(Sl*CK<*)tfTh)  f 1 1 1 0 BIN  ; 

>10 

1 1* 

i 

PI  < *Pft  *1; 

>11 

1 !4 

5 

S 1 Af  K Ip  Tit  ) *\f  ; 

>1* 

1 35 

t 

iso  »il; 

<13 

1 3# 

2 

OIL!  II  : PfcOcruUfcf  (SlAC*vPia>; 

< 14 

1 57 

3 

(CL  (ilfcCiLf  •),»•!»)  fliro  ulN  ; 

>15 

1 58 

3 

« 1 * C«  IP  is  ) *Q; 

<16 

1 34 

3 

P|R  T mi«1j 

<1/ 

1 40 

3 

14**  CHI  If; 

>16 

/• 

• / 

>20 

/•  puimikr,  tcuiiki 

• / 

>>1 

/• 

• / 

« 21 

141 

2 

P'-COPT:  Pf.OC  ; 

22  4 

1 4? 

3 

ocl  i susAn  esrar  i-Asr  p (storage  pt*># 

6>4 

c tklll  1 Utb  bis. 

6 > 5 

* t*  i*  pi  poisirs v 

6 >6 

> Iff  MffP(A»|TS)), 

L2? 

J NAP  »pT  A PC  14  11  R • 

626 

i SrAT  PIP  POINTER; 

629 

143 

3 

D(L  1 (*<!«¥  t.k‘,tl>(S>l»lCtOPr  pia>. 

63  2 

2 aIt  n * .*.  F ChA4(  1 L 9 9 

635 

2 %jp  TIP  POINTS*, 

634 

2 jP.N  Pjv  POINT1,  o # 

635 

2 fl*S?  IV  L i 5 T POJ'irCP; 

636 

144 

3 

Ml  ntl.iL/f  H.nt  U>*AM»)  VIK) 

226 

a.  rue,  s (CMilil)  »»k  ); 

ill 

145 

3 

0 C l P MINI  Lin  CHAR  (133)  t'45rP(P«L); 

22  6 

146 

3 

9CL  PsCfiA  CHARI?); 

229 

1 4 ? 

j 

OCL  M*i  LHA9(  10  -2>  VAP; 

>30  1 

14"* 

3 

POT  SaIP  L I 5 1 ('fsTtUNG  PSCONP'); 

>31 

1 44 

3 

if  r i rsi  line  imh  po; 

>32 

1 51 

3 

1 

FIRS?  Tl"l*'0'B; 

>33 

1 5? 

3 

1 

•»  «3UPS*1, 

n* 

157 

3 

1 

l OCA  Ft  P‘iST  List  r ILL (AP JPRPf  ); 

235 

154 

3 

1 

P R I N 1 II. f '1  IHL  FOLLOW  I SG  GROUPS  OF  |TfP.S  APf  CIRCUIARLT 

DtSCR Ibt  O'; 

>36 

1 55 

3 

1 

IOCAH  ,P>m  ClkC  F 111  (AP  JMkPf  ); 

m 

156 

3 

1 

PMM  List  ' 1 ^ICI*  , P«cf|S  Coot  , N*l*l  )'; 

>36 

157 

3 

1 

L OCA  It  PTINI  L I •«  f f 1 L C (*0JHRPT); 

>39 

15* 

3 

1 

PAIN!  L INL  **0'; 

2 40 

1 54 

3 

1 

r SO  ; 

>41 

1 6C 

3 

f L St  ®Gh0uPSs*fif«0oPS7l; 

>42 

396 
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161 

3 

If  CPPCO0L  - 1 THIN  CO; 

243 

16* 

3 

1 

LOCAT,  PPIN1  IINF  F lit  («9J**RPT); 

244 

1 64 

3 

1 

PRINT  LlNi*'  ••••££ DOR  1 CYCLES****  FOLLOWING 

LOOP  PUST  pf  OPINES'; 

245 

16' 

3 

1 

IOC  AU  P®INI  L I •'»  C F1U  (ADJiHPr); 

246 

1 66 

3 

1 

PRIM  Llta*'  tl £P£  NTS  lu  ?M£  LOOP  OTHER  THAN 

ASSERTION  OR  OATA  IT£H 

247 

S' 

nr 

; 

248 

16? 

3 

1 

FnO; 

249 

16! 

3 

FL  St 

250 

16' 

T 

IF  C"»C0Dl  - 2 THEN  00; 

251 

1 70 

3 

1 

l CC  A T £ PPiNT  LlNf  F i L £ (A  0 J**KP T ) ; 

252 

i n 

3 

1 

P * 1 N T ll»,i=*  i C»CllS*»««  fOUOPIHt  LOOP  IN  CONS  IS  TINT 

/5J 

1 72 

3 

1 

LOCATE  P*»lM_Llf.f  F I L f ( A 0 J P K P I ) ; 

254 

175 

3 

1 

PRINT  l I N L s ' INCONSISTENT  REFERENCES  BETWEEN 

ASSERTIONS  AnO  OATA  HA 

35S 

P£  6 ' 

255 

; 

256 

1 74 

3 

1 

F‘.C; 

257 

1 75 

3 

f LSc 

258 

1 75 

3 

IF  CNPCOOl  * 3 THEN  DO; 

259 

1 7? 

•» 

1 

lOCATt  PfiNT^LlNF  FILE (ADJPRPT); 

260 

1 7« 

3 

1 

PxlNT  L !M»*  ••••CPROR  3 CYCLES****  I HP  ROPER 

NORHAL IZATION'; 

261 

1 79 

X 

1 

lOCAU  PP1V|1_UNE  » Itl  (AO  JPNPT)  ; 

262 

1 80 

3 

1 

PRINT  liNt*'  FOLLOWING  GROUP  CONTAINS  SINGLE 

ASSERTION  WITH  HUlf  IPL 

263 

F TARolT  NANFi' 

263 

; 

264 

181 

3 

1 

E NO; 

265 

1 8? 

3 

P = f I «ST  , 

266 

18* 

3 

00  wHIlt  (P"*MUll>; 

nr 

1 8 4 

3 

1 

CALL  A CPOR I INDf * ,SIOAAGI  PTR>; 

268 

185 

3 

1 

MNTCTl/«T  PTP =N»P?HTK (*>; 

269 

1 86 

3 

1 

F Rt F I V -SUPSTt  (»r V NAPE, 1,2); 

270 

187 

3 

1 

KAH1  -St^STR LA  It  NANF,3>; 

271 

18! 

3 

1 

LOIAIF  PRINT  l |N£  f ILF (AOJHRP T) ; 

272 

189 

3 

1 

PUM.LIM"'  ' | 1 1 '■  D r « | | ' '||P«€P1«|I* 

'1  1 (ICLBUMKIPI  ) ; \ 

rrj 

1 sr 

3 

1 

P=P->1  iNR; 

274 

191 

3 

1 

F no; 

275 

Is? 

3 

LOCATE  PRINT  L INt  Mtf  < ADJHPpT  >; 

2 76 

19! 

3 

FLINT  L 1 Nt  ='  ' 1 1 < (3?) 

277 

1 94 

3 

LOCAU  PRINT  LINE  f I C C < A 0 JH R P T > ; 

278 

1 95 

i 

PRINT  L !M 

279 

196 

3 

F NO  PRCOPP; 

280 

281 

/• 

*/ 

rtr 

/•  PROCEOUPI  FOR  ANAL  IS  IS  Cf  STRONGLT  CONNLCTEO  COHPONENTS  */ 

283 

/• 

*/ 

284 

197 

2 

a:»al cap ; fROC  ; 

286 

/•  ANAL  1 2 L STRONGLY  CONNECTED  CoPPONfNTS  •/ 

rtr 

1 9P 

3 

DC  L UL T FIR; 

2 88 

1 9<? 

3 

C rtf’ CODE  *0; 

289 

200 

3 

P*f IRST; 

290 

— - — — mmmm 
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701 

702 
70! 
704 

20  t 

707 

20? 

210 

711 

717 

213 

714 

719 

716 
71  7 

21  f! 
71? 
77C 
721 
223 
225 
227 
72* 
22? 

251 

252 

253 
23  5 

234 

235 

236 

237 
23? 
241 

243 

244 

245 
247 
2 4 8 
24? 
24? 

251 

252 
753 

254 

255 
257 
25? 
260 


1 

1 

4 

5 
5 
5 
5 
3 
5 
3 
3 
2 

1 

1 

1 

1 

2 

2 

3 

3 

5 

2 

1 

1 

1 

1 

1 

1 

1 

2 

£ 

3 

3 

3 

2 

1 

1 

1 

1 

1 

2 

2 

2 

3 

3 

4 
4 
4 


/•CflfAU  AOJACENCT  LIST  roll  STP0N6LV  C CNNEC  I CO  COMPONENT**/ 
DO  WHILE  <P~«NULl>; 

CALL  AC»DPACP->14DI*,ADJMP); 

DO  J»1  TO  AUSID; 

IV  CNChP  iVNTh IE'  .€  YhIN  60; 

ALLOCATE  CaPLSST; 

IV  P“>L  1ST  *Nl»LL  T Hi  4 P->lIST*L; 
clSt  ULT->M«TsL; 

L“>At,jN06f  *E  NT  V IE  S. COL (J)i 
L->TTPl«cNl»Ifi.CVAlUtCJ); 

l->mxi*null; 

uli«l; 

END; 

End; 

/•CHICK  CONSISTENCY  Of  P'ECEDfNCC  DEL  A 1 1 OMSM IP  S*  / 

L * P->L 1ST; 

IV  Cl->TTPE»3I  THEN 

begin; 

do  while  (l->ne«t*»null  i chpcqoe*q>; 

L*L->\EXT; 

IV  CL->TTPC"»3)  then  oo; 

IV  Cl->ttpe»4)  then  cppcooe *2; 

ELSE  If  CL->TYPE*«&>  THEM  tHPLODE  • 1; 

END; 

End; 

iv  chpcode *0  then  pokey 
ELSE  P->4ET«'Si-'; 

ENO; 

ELSE 

iv  (l->typ£*6>  them 

tot&lti; 

DO  WHTlE  CL->NEXT*«NULL  * CHPCOOf«OI; 

L*L->NEX1; 

If  (L->TTNE“«8)  THEM  DO; 

if  CL->1T»»E*4>  them  chpcod  e*2  ; 

ELSE  TV  CL->TVPf*3>  THEN  CHPC0DE*1; 

END; 

END; 

IV  CHPC0DE=0  them  poke  y»*sv*; 

ELSE  P->UT»'l|'; 

END; 

ELSE 

IV  (L->TVPE*4)  THEN  DO; 

if  <lonext“»null>  them 
begin; 

DO  while  <L->NEXT~*NUIL  ft  C5PC0DE*0l; 

L *L “>N  EXT; 

If  <L->TVP£~»4>  THIN  00; 

If  <l->ttpe«3)  Then  CHPCOO £«2; 

ELSE  CHPC0DE»1; 
end; 


2?1 

292 

293 

294 
293 

296 

297 
29ft 

299 

300 

301 

302 

303 

304 
303 

306 

307 
30ft 

309 

310 

311 

312 

313 

314 
313 

316 

317 
31ft 

319 

320 

321 

322 

323 

324 
323 

326 

327 
32ft 

329 

330 

331 

332 

333 
534 
333 

336 

337 
33« 
3 39 

340 

341 
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S TPT  LF  Vf  l N(  ST 

261  4 3 

262  4 2 

21 4 4 2 

265  3 2 

26?  3 2 

26*  3 2 

265  3 1 

2 70  3 2 

271  3 2 

27?  3 2 

27!  3 1 

2 74  3 1 

275  3 


2 76  2 

2 77  3 


27?  3 


l  NO; 

/•CHICK  IF  ASStRTfON  WITH  MULTITU  IAPC.FTS  WAS  'HEAGED'  BEFORE*/ 
IF  chF'COCE-0  iHfN  CALL  ChrPULT; 

I »:  0 ; 

IF  CNPLODl-0  T Mf  N P->KEF*'SA'; 

ILCf  P->HT*-'!|'< 

iso; 

USE  00; 

C^PCODI -1; 

P -> K l Y = 'SF  '; 

E NO; 

P=  P->1 1 NK ; 

I NO; 

ISO  ANAL  CMP; 


***** * ••*••/ 

/*  •/ 

/•  'LINKING'  STORAGE  ENTRIES  Of  S-C-C  IN  THE  AH  • / 

/•  •/ 

•*•••••/ 


L1NKAS:  PROC; 

DLL  1 STORAGE  INTRT  d A S F D (ST  OR A6 E .P TR  ) , 

2  *f i ys'f I aeo  bin, 
c OATAPT  POINTER, 

2 KfY_LN|RY(l«  RE FER  (iKETS) > , 
i N AM  f E T k POINTER  , 

3  NEaTPTR  POINTER; 

/•  DATA  LIST  OF  AN  ASSERTION*/ 

DC L 1 ASS_ST_DATA  oASEO  (OATA_PTR), 

2 COP*r*n_PTN  f T h , / • PG  1 N 1 E A TO  COFHFNT  STACK*/ 

2 u?tD_LlNE»  BIN  'f I 0 C?1  ,0>  , / • U S I R SUPPLIEO  LINE  f*/ 

2 PLlNlf  PIN  FIVCO(!1,0>,  /*PP0CCSS0fc  SUPPLIED  LINE  •*/ 

2 OA I A_L 1ST  PTR,  /*Pu INTER  TO  ADDITIONAL  OATA */ 

2 PAtDlNL  tIN  F I A f D C 3 T ,P),  /*NCT  USED*/ 

2 STVLIST.PTN  PTfc,  /*F01NTER  TC  SOURCE  t TARGE  T VARIABLE  LIST*/ 
2 ASS.PTh  P T k » /*rOlN1|>  TO  ASSERTION  ITSELF*/ 

2 NASS.PIR  PTR,  /*P01N'ffR  TO  NL  X T ASSERTION 
IF  PART  OF  SIMULTANEOUS  SET*/ 

2 SV_Plft  PTR,  / *P0 I NT  f k TO  SOURCE 
VARIABLE  LIST*/ 

2 TV_P?R  PTR,  /*FOINTfR  TO  TA*GET 
VARIABLE  LIST*/ 

2 »N_PTR  PTR,  / • PO 1 NT  F k TO  FUNCTION  LIST*/ 

2 1NIT_PTR  PTR,  /*PriNTER  TO  INITIAL 
VALUE  LIST*/ 

2 TEST. PTR  PTR,  /*POI»Tffi  TO  TiST  VALUE  LIST*/ 

2 SOL.PTk  PTR;  /*P01NTEk  10  SOLUTION  INDICATOR*/ 

DC  L 1 NASS  LIST  u AS  I D ( N A S SP T M ) . 


3 


i lode  Charm),  /•  'i'  if  KMi.nri.  points  ro  data  area,  665 

'b',  If  HtKt^rt*  f-flJfcfS  10  ST(j»ACt  ISTKV*/  665 

666 

c fIRSI,PYR  f'T  F t /•Pi'fMf*  TO  I Mf  FlfcST  STORAGE  ENTRY#/  66/ 

t ?» f A 1 _ P f R PTH;  /#PO.MfK  10  The  M*f  DATA  AREA  666 

'c*  STORAGE  INTat*/  66ft 

260  3 DC  L 1 fKAcP.DESC  dAllD(0*J*_P7f>),  670 

<.  pmOOI.g  (a)  f* J ».  rmo<!1,0>,  671 

<'  (iUllD  IUN  riliD.  6 n 

2 :h?OP-  vlh  MMO;  67  3 

2 81  3 if  f L ACL  f«K  f Hf f»  RETURN;  366 

28  3 1 PafIRM;  36  7 

284  3 N*iSPTfc*NIILL#  368 

265  3 MR5I»KULL;  369 

286  3 DO  vHiLf  Cfa~*suiL);  370 

287  3 1 If  (M  7 ***.(*' ) TntN  DO;  371 

269  3 £ CALL  ACROR(Il,DtX,STOA  AG6  P?R);  3 72 

/•  “ 373 

• 373 

• SET  CODE  IN  ERROR*  f OR  LATER  PRINTING  Of  3/3 

• SI'«  jLTA  ,EGUS  ASSERTIONS  373 

• 373 

• / 373 

378 


290  3 L DATA.PTfi  a DATA^PT; 

291  3 £ ERROR*  * 88>; 

/• 

*/ 

2 V?  3 < If  NASSPTP"*NULL  THEN  N A US _L 1 S T . H E A T _P I R ^ S T OR  AGE _P T « ; 

2 94  3 i U »TA_nP  &0J.TA_»T; 

2 9?  3 £ If  (NAS?  PTRsNOLLl  TPfN  DO; 

29  7 3 l ALLtCATt  v a;«_l  IS  ?; 

27f  3 3 A S S _ P T 4 -mASSPTR; 

299  ! 3 t YD; 

300  3 £ ELSE  DO; 

SOI  » i nAS5P?K  = NASS _P  f R ; 

10?  3 3 CALL  OcTlAstJ 

!0»  ? J t ND ; 

304  3 £ COOE*'S'; 

505  3 c f l*Sl_PTlt*f  IMST; 

J'J6  3 £ END; 

307  5 1 P 3 L I N A ; 

308  3 1 EnD; 

3G«  3 NASS. L 1ST  .NfcM^PTR  *Nl«Lt; 

310  3 '; 

311  3 C » T i AST:  p«0Cl*u*1  RECURSIVE; 

/•  IWIEhNAL  RECURSIVE  PhOC  J S £ D TO  C°  T A | N EAST  NASS-PTR 

in  a list  cf  ?ata  arias  and  storage  entries  »or 
Ll’.AAfct  »I(II  ?t’T  STORAGE  entry  •/ 


5 79 

380 

381 
381 
381 

383 

384 

385 
3 86 
387 
368 
589 

390 

391 

392 

393 

394 

395 

396 

397 

398 

399 

400 

401 

402 
402 
402 


400 


I*  6?  Ui/f'S /TP  Pi.  1 C-VtR-053u78 


S 1 PT  LEVEL  NC  S» 


If  COP L 1 ' ' TnfN  RETURN; 

If  com -'O'  THEN  NASSPTR  *N«  SS.t  IS  r .NEX  T.PTR; 
USE  IF  CODE--'*'  I HEN  do; 

STORAGE  _f  Tfc"SASS_LI5Y»Nf  X f _ P T R ; 

DA  U P IF =DaTA_PT J 
NASSPTR  =NASS_PTR; 

E NO  ; 

f l St  com  *' 

CAiL  Ot  TLA  SI; 

INC  Of  HAST; 

CkD  l INK  A S ; 


/*  CHECKS  ASSERTIONS  WITH  HORC  THAN  0 N£  TARGET  VARJAStE 
/• 

•*••• 

ChKPULT;  PROC; 

/•CHICKS  THAT  ASSERTIONS  WITH  «ORE  THAN  ONE  TARGET  ARC 
PROPERLY  lURGED  •/ 


cppcode -0; 

f NO  CHKHULT; 

END  STRLCON  ; 


PRINT  SI*UL IANE0US  ASSFRTIONS  To  REPORT 


PSlHASS:  PPOCEDuPE; 

OIL  1 S ToRAC t_t»  TR T 0 A S f D (S T OR  AG I _P T R ) t 
i >K  t VS  FUEL  GIN, 

< DATA  PI  POINTER, 

4.  A E T _LN  I * V (N  R E f f M«K  ITS  ) ) , 
l NANCFVR  PO  .NTER  , 
i .\fXT_PTP  POINTER; 

CCC  PKTASS1  ENTAV  <poin  ER); 

TCI  PRTrtLh  ENTRY; 

DC L flNltfcl  TNTHV  (CHARE*)  WAR); 

DC e rum  emrtj 

DCL  TCCP.P  PiN  F1KE0; 

AC0rP  = RSR0llPS;  . 
oc  WHILE  (RtOfcP  > 0); 

FIRST  * P TrCPP (rcokp ); 

CALI  PRTHPR; 

CALI  CtWlfRL  ('S  IPULT  ANiOl’S  ASSERTIONS'); 
CALL  PRTTPl; 

do  While  o ihsi  *•  NULL); 

P-fIRSI;, 

If  r t Vs ' s A ' THIN  DO; 

CALL  ACRDR  (INDEX , STORAGE. PTft); 


35*  1 PRICED:  PKPCFCORFCN); 

35«  1 OIL  acfin.nfi)  ill(l)  CU; 

360  2 0 CL  FIXED  PIN; 

/•  CPEAIC  PinoCCD  ACTCL1C  BIT  ADJACENCT  *A7Rl«  ./ 

361  2 IF  HU.Ft  I H LN  RITuPN; 

36'  2 UN  * LLLt.l; 

36*  2 Al LOCATE  A; 

365  2 A * 'u'l; 

36A  2 Du  1*1  10  •!; 

367  2 1 CALL  AC  ADR  A IT  ,ADJ!*P  >; 

36*  2 1 IF  CkUStD  = G)  1 H L A 00  TO  N0ADJ; 

3/0  2 1 Id  J =1  TO  RuSEO; 

! 7T  2 t .=ENIP I l 51 J > .COL; 

372  2 2 IF  C.  = r>  IMiN  (,0  10  OUT; 

3 7*  2 2 II  U AP Cl  7 -= anrp Cw ))  TnFN 

3/5  2 ^ A C»* API  1 ), A“AP CM >>  = '1 'B; 

3/6  2 , jUT:  InD; 

377  2 1 NOAOJ:  U.D; 

37*  2 CALL  * AA  HO  DC  A ,11 A ,K  ); 

37°  2 FACE  •; 

36"  2 PL  T 52  l F‘  LIST  C'oPOFR  VECTOR;'); 

3 31  2 PUT  SUP  <011  iOaICR)  C FC4TF; 

362  2 PAAAAOf:  !•  AO  Ct  6 c*t  ( A , VN  ,N  ) ; 

/•l.ARAn.1  ALOIS  OF  A E Oil  CEO  ACTCLIC  DlAICUD  GHAPH  SPECIFIED 
I.T  ill  AOEALEnCT  MIIII  3 IN  ASCE»MM>  "RANA"  ORDER, 

RE  Sue  I INC  IN  N-ILLPENT  VICTOR  “ORDER*  •/ 


402 


oAna  /0t!  05/0*/?*  PL  1C-V«.H-033G78 


1 TPI  If  VIL  Nf  S t 


32 ' 

3 

4(1  C,s),I  1ST  f < '»  'a  ) ,«  |N|f<'Q*tsM  9ITC1), 

498 

C kOKtlMNh)  ,*  US!  S t?)  IMIlU'jl.irl/  INIM2>,<IC0  IhlT<1)> 

499 

flu  o H JN  ; 

500 

3 

DCl  ( Oi » .TH  (*  ,NN  ) , A IMT<0)>  f 1 1 ( 0 niN; 

501 

385 

t 

41 L KViftlNN)  f 16  f 0 SIM; 

502 

386 

* 

IiU  < 1 , J , L , 1 1 ,*  ) f I If  & b IN; 

503 

/•  ». TMf  N^oUt  Of  NbDtS  I H THE  G * I ^ I N A L DIGRAPH 

•/ 

504 

/•  NN  THE  Nt»Ulk  Of  NODE*  T N I H ( A f V C l I C DIGRAPH 

•/ 

505 

/•  0 *blH VtCTON  Of  HOMS  ' S wHlMNAl  DIGRAPH  IN  WANK 

ORDER  •/ 

506 

/■  MHCl.il ViCTOK  01  NOOit  IN  fcCItllC  SI(.»»PH  IN  N AN  K 0«0f»  •/ 

50  7 

/•  RANK  VECTOR  Of  RANKS  1*  ACTCLlt  DIGRAPH  <*A*  DEPTH 

Of  A 

50  8 

G 1 VFN  NODE • 

•/ 

508 

509 

?•  OfPTH SET  Of  NODES  1 N A GIVEN  PAnA  (OLD  K NE  W ) IE. 

rank  SET  •/ 

510 

7*  NODES CUUMLPS  FOR  * O'  N*OfS  IN  RA  N A SET  (DEPTH), 

OLD  4 NEW  •/ 

511 

/*  old Po Intel  to  previous  pan  a sit 

• / 

512 

/•  *,f , PuIuTer  to  ( u *< f n t pana  sft 

•/ 

513 

/•  OMISl BIT  VECTOR  Of  NODES  NOT  IN  CURRENT  DANK  SET 

•/ 

514 

/•  INITIALIZE  PANA  Of  ALL  NuDkS  T(j  0 */ 

515 

36  ? 

3 

pAnkvao rDeR  * 0; 

516 

368 

3 

0 A 0 E P * 0; 

51? 

/•ill  UP  NCDfS  Of  DEPTH  0 */ 

518 

389 

3 

JO  j-1  10  Ns; 

519 

/•„.|TU>  KottS  w'TmOuT  PREDECESSOR  IN  f IN  ST  NANA  SET  •/ 

520 

390 

3 

1 

If  ASV(A(«,J)J  THEN  GO  I0  OUT; 

521 

39? 

3 

1 

P,NODlS(0lt)  s NCDES(OLD)  ♦ 1; 

522 

393 

3 

1 

D»  PTH  (f  L D,"  >*J; 

523 

394 

3 

1 

OUT : end; 

524 

395 

3 

If  HOLE  G ( 0 1 L ) <*  J THIN  f*0  10  ENN; 

525 

/•Pfi PLIED  10  1 l ND  RANA  SfIS  Of  DEPTH  1 AND  ON  •/ 

526 

397 

3 

4*0  L - 1 TO  NN; 

5 27 

398 

3 

1 

NOOES(NEN)  * 0; 

528 

399 

3 

1 

UNUSE  * T; 

529 

4 on 

3 

1 

DO  1*1  IP  NODES  (01 D ); 

530 

401 

3 

2 

11  * DcPTMOlo,  I); 

531 

40* 

3 

2 

DG  ?=1  TO  NN; 

532 

4 0 * 

3 

5 

if  a ( 1 1 1 J ) Then 

533 

404 

3 

3 

If  uNbr»k(J)  THEN  DO; 

534 

40? 

3 

4 

NASA  ( ))  -l; 

535 

40  7 

3 

4 

t»<uf  t ( i > -f  ; 

536 

408 

3 

4 

P .NODE  S (Mr  )»«OMS  (new)  ♦ 1; 

53? 

400 

3 

4 

Of PTM(NEW#H>*J; 

518 

4 in 

3 

4 

END; 

539 

4 1 1 

3 

3 

(NO; 

540 

41? 

3 

2 

END; 

541 

/•If  v.  NOTES  IN  NEAT  RAMA  SET  THEN  RlOROER:  EN0  Of  RANKING  • / 

542 

413 

3 

1 

If  NODE  S (N  T s ) <*C  THEN  GO  TP  PEORDE  0; 

543 

/•  1 1 CH A N Of  OLD  4 NLW  P ANA  SETS  •/ 

544 

415 

3 

1 

P * N E w # 

545 

416 

3 

1 

MW  * old; 

546 

41  7 

3 

1 

OLD  a *; 

54? 

tt-  ""  "■  - 

- V - *'  v 


r 


gana  7<>63  u'./rs /7i  PLIC-Vtl»-Oi3o78 


s r»i  LfvtL  nr  it 


PACE 


PA  GC 


4lf  1 1 fHO; 

4 1ft  3 f RI  : «f TUfcN; 

4*0  3 /•  SOM  NODES  H ASCENDING  Oft  DC  ft  •/ 

p.  T SMP  LIST  ('mm:'); 

421  2 »'  'J I 5*  IE  if  IT  ChAN«)  (f(S  >7; 

4 2?  3 PUI  »lf  ll<1  ('*K*P'); 

4 2!  3 PoT  SUP  LtJV  (APAP)  (E13)).; 

4 1 4 3 DC  I*C  If  L-1; 

*25  3 1 DO  JM  TC  S*i 

4*6  5 C If  T*un  DO; 

4 ? * 3 3 k*kH; 

42ft  i 3 EOhDtft <r)»j; 

430  3 3 ISO; 

431  3 c 1*0; 

r 4 3?  3 1 IND; 

/•  Sff  CfclfK  0 C fLItlNAl  DIGRAPH  ll'G^mi  WITH  CTCLCS)  •/ 

433  3 Pci  SKIP  Li*T  ('•OftuEft'); 

434  2 PUT  SLIP  t D 1 T (hChDift)  (MS)); 

*35  ! DO  I « 1 10' 6; 

43«  3 1 CftDf  M 1 )»»UPD(fc  (A”AP(  |»); 

• 43?  ! 1 CNC; 

42ft  3 (so  LANAUOO; 

43ft  ? END  P r f C l 0 ; 

f 4 40  1 IMi  (TULS  ; 


5*8 

5*9 

550 

551 

552 
551 

554 

555 

556 

557 
556 

559 

560 

561 

562 

563 

564 

565 

566 

567 
566 

569 

570 

571 


APPENDIX  C 


MODEL  output  corresponding  to  the  multicountry 
integrated  model  of  MINILINK  presented  in  Chanter  7.  Figure 
C.l  list  the  source  descriptions  augmented  with  generated 
statements  by  the  processor  (using  in  place  of  the 
location  sequence  numbers).  Figure  C.2  shows  the  elements 
identified  as  members  of  a "compound  loop"  by  the  Cycles 
Analysis.  Figure  C.3  gives  the  formatted  output  in  which 
the  statements  ate  grouped  into  corresponding  subsections 
and  the  statements  in  each  file  ate  indented.  Figure  C.4 
shows  the  cross-reference  table  of  all  names  used  in  the 
MINILINK  specification,  and  finally  Figure  C.5  presents  the 
"precedence"  list  corresponding  to  this  simulation  example. 
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405 


SOURCE  LISTING  ANO  GENERATEO  STATEMENTS 


/*  SPECIFICATION  OF  MINILINK  • / 

SEC  HEAOER 
MODULE:  minilink; 

! a_bank,b_bank,a_input,b_input,traoats  

: solution; 

A_ftAMK , U_B ANK , A_ l NPUT , B_ INPUT  , 

A_SOLUI ION, A. a_stkuc_cqns,b.b_struc_eqns; 


8 

8 

8 

8 

9 

10 

11 

12 

13 

14 
15 

16 

IT 

18 

19 

20 

21  _ 

22 

23 

24 

25 

26 
__  27 


28 

29 

30 

31 

32 

JJ 

33 
33 
33 
33 
33 

33 

3* 

3* 

36 

36 


SEC  OATA.DESCRIPT ION 
/•  OATA  DESCRIPTION  ♦ / 

A IS  ME01MUMIT  * 3330)  5 

TRAOAT  IS  F ILF! A,QRG*SFQ,F IXED) S 

SHARE  IS  RECOROI TRADAT) ; _ 

A 70  IS  FULOCSHARE,  i no.cntry, no.cntry , 4 ii s 

/•  FROM  SPECIFICATION  OF  COUNTRY  A */ 

A.BANK  IS  F IL  E t A ,ORS  = SEQ,  KEY  = NUMBER  , FIXED); 

T I M_SER  IS  RECORD  ( A_b4f,K,  (5*6)1; 

NUMBER  IS  F IELDI T I M_3 EK , NUM 14 ) I ; 

LABEL  IS  FIELDCT I M_.SE R . NJMI 4 I I ; 

DATA  IS  FIELD! TIM.SCR ,OECI 14.51.(20) ) S 
A.INPUT  IS  FILEIA.ORG*SEO»FIXEOIS 
CONTROLS  IS  fcEC0*O!4_INPUf» fills 

IINK.YR  IS  FIELD! CONI RCLSVNUMI6) I;  

LINK. NR  IS  FIELD!  CUM  f-OLS.  NUMf 4)  ) ; 

COEFF  IS  F I FLDI CONT ROl St NUM (4),I12))S 
SOLUTION  IS  REPORT  IA,(’RGsSEG«  VARIABLE)  ; 

PERIOD  IS  GROUP  I SOLUTION, I LI NK.YR : LNO.YR) ) 5 
HEADER  IS  RECOKO!PERinut( 1 ) ); 

TIME  IS  FIELD! HEADER ,C MAR ! 10 ) ) ; 

NAME.  IS  FIELD!  HEADER  ,C  HAR  420)  ) S 
PRICE  IS  FI  EL  D I HE  AD  ER .CHARI  20 II; 

VALUE  IS  FI  ELD  < HE AD  ER ,C  HAR I 20 ) ) ; 

COUNTRY  IS  R(CURO(PEklUU,!NO_CNfRYIl ; 

FILLER  IS  F I EL  0( C OuNT  KY • CHAR  I 10 ) ) ; 

CNTRY.NAMt  IS  F IE LO I COUNTRY, CHAR  I 201); 

"p  IS  FICLOICOUMTRY,PIC* I 14)Z.V15)9* Is’ 

V IS  FIELOtCOUNTRY, PIC* l 14)Z.VI5)9* ); 

TOTAL  IS  RECORD! PERIOD# < 1 1 1 S 

FILLER  IS  FIELDITOT  AL ,CHAR ( SO ) I S 
TW  IS  FIELD! TOTAL. PIC* ( 16»Z*V(519* I S 

✓•REDUCE 6" COUNTRY  A MODEL  STRUCTURAL  EQUATIONS  */ 

A_VM|T.K)*A. COEFF! 1 ! ♦ A. COFFF  C 2 I • T 

♦ A.CUtFF! 3 I •A.PM!T,Kl ♦ A.COEFF I 4 1 •A.PMIT— I,K1 
M.CUFFFI5»*A_XI T,K) 

_ ♦A.COEFF (6 l*A_XI T-l,Kl; 

A.PX|T.KI*A.COLFF| /)  ♦ A*  COEFF I 8 ) • T 

♦ A.C0EFFI9MA.PH! T ,K) »A.CUEFF ( 10 ) •A.PMf T-l ,K I 
♦A.COEFF I l I ) • A_X I T , Kl 

♦A. COEFF ( 12) *A__X (T-l.K)S 


0000000 l 
00000002 
00000003 
00000006 
00000005 
00000006 
00000007 
00000008 
00000009 
00000010 
000000 1 l 
00000012 
00000013 
C0000016 
00000015 
00000016 
000000 17 
00000018 
00000019 
00000020 
00000021 
00000022 
00000023 
00000024 
00000025 
00000026 
00000027 
00000028 
00000029 
00000030 
00000031 
00000032 
00000033 
00000034 
00000035 
00000036 
00000037 
00000038 
00000039 
00000040 
00000041 
00000042 
00000043 
00000044 
00000045 
00000046 
00000047 
00000046 
00000049 
00000050 
00000051 
00000052 
00000053 
00000054 
00000055 
00000056 


Figure  C.l 
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35 

35  /•  FROM  COUNTRY  B SPECIFICATION  #/ 

35  BIS  MEDIA! UN IT*3330I  ; 

36 

36  B_0 ANK  IS  F I L E I B ,ORG* SFQ » KEY  * NUMBER , F I XE 0 1 J 

37  TIM_SER  IS  RECORD 1 B_BANK,  C 5 , A M 5 

3R  B.INPJT  IS  Flit  IB,UF;G-SEQ,FIXEOI  5 

39  CONTROLS  IS  RECORD  I INPUT , II )l ; 

<►0 

40  / •REOUCEO  COUNTRY  B MODEL  STRUCTURAL  EQUATIONS  #/ 

40 

40  B_VM(T,K»*8. COEFF I 11  ♦ B. COEFF I 2 ) # T 

40  ♦ R.CCEFFI  3>*B_PMtT,K)4B.C(JEFF(4)*8_PMtT-l,KI 

40  ♦B.C0EFF|5)*B„X( T,K) 

40  ♦B.COE^F (6) *B_X(  T-l,K|; 

41  8_PX( T,K)=B.COEFF (7)  ♦ B COEFF (81  ♦ T 

41  ♦B.COfcFF (9) *B_PN( T,KI ♦0.CCEFFI 10 ) ♦B.PHI T-l #K ) 

41  ♦ a.COEFF(ll)*Q-X(T,M 

41  ♦a.COEFF(12)*B-XlT-l#K>5 

42 
42 

42  /•  END  OF  REFERREO  DESCRIPTIONS  #/ 

42  . 

42  /*  SUBSCRIPT  DESCRIPTION  •/  l 

42  T IS  SUBSCRIPT  (°ERlOr)*A.LINK_YR  , END_ YR » 1 ) ; /•  SOLUT  ION  TINE  •/ 

43  OT  IS  SUBSCkIPT (OAT  A,  1,20,1  > /•  DATA  TIME  #/ 

44  I IS  SUBSCRIPT! A70, l ,NO_CNTKY, 1, 1 );  / •COUNTRY*/ 

45  J IS  SUBSCRIPT!A70,l,N0_CNTKY,l,2J;  /•COUNTRY#/ 

46  K 1$  SUBSCRIPTING,  l ,4,  1, 31 ; /•COMMODITY  GROUP#/ 

47 

47  /#  EACH  COUNTRY  ENDOGENOUS  INTERIM  VARIABLES  •/ 

47 

47  A_VM, 8_VMf  A_PX*  B_PX  ARE  1 NT  ER  I M I DEC  ! I 4 , 5 ) • ! L I NK_  YR  : END.  YR  , 4 J ) ; 

51  A_X,8_X,  A_PM,  3_PM  ARF  1 NT  E«  1 M ( DEC  I 1 4 , 5 ) , ( L AG_ YR: E NO_YR,  41  I 5 

55 

55  /•  MINI  LINK  ENDOGENOUS  INTERIM  VARIABLES  #/ 

55 

55  XL  IS  INTFR|M(0ECIl4,5),(N0_CNTRY,LAG.YR:END.YR,4n; 

56  VML,PML,VXL,PXL  ARE  l NT 6R I M ( DEC ( l 4 , 5 ) , I N0_CN1 RY , A . L INK_YR S END. YR , 41  I i 

60  VML09  IS  IN  TERM  COCCI  14,51,1  NQ_CNT  RY , A.  L I NK_YR  :ENO_ YR I I » 

61  SEC  ASSERTIONS" 

61 

61  /•DATA  REPETITION  ASSERT  I QNS*/ 

61 

61  ENO„YK  * A.L(NK_YR  ♦ A.LINK_N?S 

62  LAGJTR  - A*CINK_YR  * II 

63  NO_CNT RY  * 2; 

64 

64  /•ASSERTIONS  FOR  "CONTRACT"  VARIABLES  LINKING  EACH  COUNTRY 

64  WITH  MINILINK*/ 

64 

64  VML(l,T,K»  » A_VM(T,K1; 

65  VML(2,T,K)  * B.VM!T,KI; 

66  PXLI  l»  T » K ) * AJ>XCT,K>; 

6 T PXLI2.T ,K)  * ft.PXIT,KI| 

6B 

68  /#ASSTKTIONS  FOR  "CONTRACT"  VARIABLES  UNKING  MIN  !L  INK  TO 

68  EACH  COUNTRY*/ 

68 

68  A_XI T ,K I ■ XL ( l ,T ,KI { 

69  B.XIT ,K|  « XL  I 2 , T ,K)  ; 

70  A.PM(T,K>  » PMLI1,T,K)J 


00000057 
00000058 
00000059 
00000060 
00000061 
0000006 2 
00000063 
00000064 
00000065 
00000066 
00000067 

oooooooa 

00000069 
000000  70 
000000/1 
00000072 
00000073 
00000074 
00000075 
00000076 
00000077 
00000078 
00000079 
0 0000080 
00000081 
000000B2 
00000083 
00000084 
00000 095 
00000086 
00000087 
00000008 
00000009 
00000090 
00000091 
00000092 
00000093 
00000094 
00000095 
00000096 
0000009 7 
00000098 
00000099 
00000100 
00000101 
00000102 
00000 103 
00000104 
00000105 
00000106 
00000107 
00000108 
00000109 
00000 l 10 
00000111 
00000112 
00000113 
00000114 
00000115 
00000116 
00000  117 
00000119 
000001 19 


C.l  (Cont.) 
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B_PN|  T * K ) * PMLC2.T,K)S. 

/•  ASSERTIONS  FOR  RELATING  INITIAL  CONDITIONS  TO  COUNTRY  A 
AND  B BANK .DATA  VARIABLES  ♦/ 

A_XI LAG_YR,K)  * A. DATA! St K# L AG_YR ) ; 

B_X(LAG_YR,K ) P . JA  T Al  S , K , L AG.  YR  ) ; 

a.pmilag^yr.k)  = a.o\ta< j ,k,l ag_yri ; 

B_PMIL  AC»_YR%KI  * tt.OATMl 

/•  ASSERTIONS  FOR  ENDOGENOUS  LINKAGE  VARIABLES  ♦/ 

VXLII , T,K)*SUM( A70( I , J, Kl *VML<  J.T#K) , Jl 5 
PHL(J,T,K)»SUMf PXLI I t T * K) •A  701  I); 

XLU.T.K)*VXU  l.T,K)/RXLI  ItT.K); 

/*  ASSERTIONS  FOR  SOLUTION  VARIABLES  •/ 

PER100IT)  * t; 

NAME  ( T 1 * 'NAMF.  • » 

PRICH(T)  » ' PR  I CC  IMPORT'S 
VALUE  I T)  * 'VALUE  EXPORT'S 
CWTRY.NAMF IT , H = 1 » 

VNL09I  I , TjsSUMIVMLI  I * T * K)  # K)  J 

PI  T , I ) * S'JMC  PML  I I,T,K)*VML(  I » T.KI/VML09I  ltTtKI); 

V<  T,I  >»SUM|  VXU 1 ,T ,K) ,K); 

TMI T)«SUM(VII  > T J « 1 1 5 


00000120 
00000 1 2 1 
00000122 
00000123 
0000012* 
0000012b 
00000126 
00000 i 2 7 
000001 28 
00000129 
00000130 
00000131 
00000132 
00000133 
00000 l 3* 
00000135 
000001 36 
00000137 
00000138 
00000139 
000001*0 
000001*1 
000001*2 
000001*3 
000001** 
000001*5 
000001*6 
000001*7 
000001*8 
000001*9 
00000150 
00000151 
00000152 
00000153 
000001 5* 
00000155 
00000156 
00000157 
00000158 
00000159 
00000160 
00000161 


FOLLOWING  STATEMENTS  WERE  GENERATED  BY  THE  SYSTEM 


NO_CNTKY  IS  INTERIMS 
LAS.YR  IS  INTERIMS 

L I NK_VR  IS  F I EL  0( CONT  ROL  S t NUMER IC  C * ) ) S 
LINK.NP  IS  HFLDICONTKLLS,  NUMER  ICI*)  I S 
COEFF  IS  F I ELD  I CON  I ROL  S» 1 1 2 1 t NUMfcR  IC  I * ) I S 
NUMB*-'  R IS  FIELDI TIM_SEP,NUMERlCf *1  IS 
LABFL  IS  F1lL0ITIM„SEM,NUMERICI*))S 
DATA  IS  FIEL0ITM.SER,I20),0CCI.MALIIV,5))5 


3ASI0J01:  il'JJOlaPMLl  ItTtK)  * VMLIltT.K) 
ilOOJl  IS  INTERIMS 

IAH'))>>:  S I 0)  32  - P < L ( I t T # K ) » A70(I,J,K)S 

1 190)2  IS  INTERIMS 

SAfM.lOj:  t|  )J)J  = A 731  I t J,K)  • VMLCJ.TtK); 
♦ I 000  5 IS  INTERIMS 
FNO_Y<  IS  INTERIMS 

SA230I : A.SNLJT IUN.Pt R 100. TOT AL . F I LL ER* •• S 


• VMLUtTtK)  / VML09II  ,T.K)5 

• A 701 1 • J • K I S 

• VML  C J » f t K ) S 
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I ! 

10*  AA  2002  : A.  SOLUTION.  PERIOD.  COUNTRY.  FILLER-'  *j 

LO*  AA2000:  A. SOLUT ION.PER IUJ. HEAOER. TIN£« • • ; 

106  A IS  MCDIAtUNlT»}3JOI  ; 

10?  *3  1 00 l IS  SJdSCAIPIII 

103  AH l 002  IS  SUBSCRIPT I II ,*,l , 1)1 ; 

109  *31003  IS  SUBSCRIPT  I I I l < III  | 

no  taioo*  is  sjiscKioin  i, >,1.111: 

111  A3  l 005  IS  SJ3SCR l°TI I l ,*,| > 1 1 1 ; 

112  AB 1 006  IS  SUBSCRIPT 1 1 1 1 , 1 1 I I 


4<r> 


T ME  FALLOWING  GROUPS  OF 
( niCT 0 , prc r ix  cone  , 


l 06 

$ I 

113 

$1 

62 

$ A 

l 15 

$1 

153 

$1 

112 

$ A 

155 

$1 

l 39 

$1 

74 

$ A 

140 

SI 

l lb 

$1 

91 

$A 

\ 73 

$1 

1 31 

$r 

TO 

$ A 

132 

$1 

105 

$( 

60 

$A 

10  7 

$t 

t 35 

$1 

72 

l 36 

$( 

165 

SI 

RO 

$A 

169 

$( 

1 ?7 

SI 

68 

$A 

128 

$1 

109 

$1 

6 1 

$A 

111 

$1 

186 

$1 

1 09 

$ A 

vxi 

VXL 

SA0020 
$10303 
$10003 
$A  $ 1 0003 

vml 

VML 

iAoooe 

A_VM 
A^VH 
S A 000  l 
A_X 
A^X 

$ A001 2 

XL 

XL 

$ A0022 

PXL 

PXL 

$ A 00  1 0 
A_PX 
A_PX 
$ A0002 
A_P*« 

A_PM 
$A00 14 
P*l 
PMl 

$A002 I 
$10002 
$10002 
$A  $ 1 0002 


ITE*S  ARE  CIRCULARLY  DtSCRIOEO 
NAME  I 


Figure  C.2 
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ooooooo i 

/•••*•••••»•••••*•»••••••«*•••*••••*«*»••***•••••••••••••»****»»••••••/  00000002 

/•  •/  00000003 

I*  MINUINK  MODULfc  DESCRIPTION  ♦/  0000000* 

/*  */  00000005 

00000006 

00000007 

module:  minilink;  oooooooa 

SOURCE  FILES:  B_INPUT,B_BANK, A_l NPUT , A_BANK , IRADAT 1 00000009 

TAKSET  PILES:  SliL  Of  I ON;  00000010 

OOOOOOll 

00000012 

/•  •/  OOOOOOli 

/•  OATS  OESCKIPTIUN  STATEMENTS  •/  0U0D001* 

/*  */  00000015 

00000016 

00000017 

A IS  MEO I A (UNI T « 33301  ; 00000100 

8 IS  MEDIAIUNIT=33301;  00000200 

A IS  MEDIA! UN IT*3330I;  000J030O 

00000301 

/•»»«»••»•••*•*•»•*••»»••»••••****••*****••****»*»***•**••»•«»•’••*•/  00000 J02 

/»____  »/  00000303 

/«  “B.INPUT"  FILE  DESCRIPTION  »/  0000030* 

/»  •/  00000305 

/••••••»•**•«•******«*»•«*»•«•«*»•*•«»•••*••»>*»•*****»*»•*•»•*•••*•/  00000306 

00000307 

8 INPUT  IS  FILEIP, FIXED, SAMI ; 00000*00 

CONTROLS  IS  RECORD ( I NPUl ,1111;  00000500 

LINK_YR  IS  FIELDIC0N1R(JLS,NUNERICI*11S  00000600 

UNK_NP  IS  FIELOICCNTRCLS.NUMERICUll;  00000700 

COEFF  IS  FIELD(CUNTR0i$«(l2l,  NUMER I C I * 1 1 ; 00000800 

00000801 

/•••*•**••*••**••••»•••••*»«••••*••*••#•***»»»•»•*•*••*•••*•***»••••/  00000302 

/*  */  00000803 

/•  "B_BANK"  FILE  DESCRIPTION  •/  0000080* 

/•  ” *7  00000805 

00000806 

00000807 

8.BANK  IS  F ILE IP, KEY* NUMBER, F (XEO, SAMI  I 00000900 

TIM.SfR  IS  RCC0RDI8_0ANK,(  5,*11  ; _ 00001000 

NUMBER  IS  EIELOITIM  SE R , NUMEK 1C  I * I I I 00001100 

LABEL  IS  FICLDITIM  SEF.,  NUMER  I C(*  1 1 1 00001200 

DATA  IS  FIELDITIM.SER, (201, DECIMAL!!*, 5111  00001300 

00  0 0 1 301 
00001302 

_ f* »/  00001303 

/•  _ ~ ‘ “SOLUTION"  FILE  DESCRIPTION  ' •/  0000130* 

/•  */  00001305 

0000 1306 
00001307 

SOLUTION  IS  FILEIA, VARIABLE, SAMI;  00001*00 

PERIOD  IS  OKOUPI SOLUTION, 1 1 I NK._YR  : ENO.YR  1 1 ; 00001500 

HEAOEK  IS  RECORD! PERIOD, I II  I ; 00001600 

IIME  IS  FIELOUItADER.CHAMlOlll  00001  700 

NAME  IS  F I FI  0( HEADER ,C MAR ( 201 1 ; 00001800 

PRICE  IS  f IFl  >(HFAD£K,CHARI20III  00001900 

VALUE  IS  F I ELD I HE AUER, CHAR I 201 1 I 00002000 

GOUNIRY  IS  RF.CUROIPIR  ICD,  (NO.CNlRYl  I ; 00002100 

FILLER  IS  FILL  01  COUNT R Y.CHARIIOII;  00002200 

0A1 A_Ot  SCR  I PI  I U 3 IS  F I E 10 1 C CUNT  RY , CHAR (201  11  00002300 

P IS  FIELOICOUNIRY, PICTURE  *11*12. V!519*l;  00002*00 

V IS  F I E L0( COON  TMYfPIC  TURF  • 1 1 * 1 2 . V I 5 I 9 • I | 00002500 


Figure  C.3 


TOTAL  IS  RFC OVD! PF KlOO, (III*  30002600 

riLLfP  IS  FICLOC  VOTAL.CHAP.I  50)  I ; 000)2700 

IW  IS  F IEL9! 10? AL,P/C 1 Ml  • I 14 )l. V<5)9*  )i  000)2800 

00002801 

/»**##*»»*»•»••*•**»•****•*•*#*»#»•*#»*•*#*»*•#***•»#*•*»»»•»**#**•»/  00002802 
/•  •/  00002803 

/•  "A.INPJT"  FILE  DESCRIPTION  •/  00002804 

/•  */  00002805 

/ «***«*«*♦*«*+•*««**»*•*»»*»****»••*»«»»*»•*«*»*»**•*»•*•',»»*•*»»•»/  000)2806 

000 02  80  7 

A_INP»)T  IS  F ILF(A,F|XE0,$AM)  ; 00002900 

CONTRiilS  IS  RECORD!  A_  INPUT  »(!))•  OOOOiOOO 

LINK.YP  IS  F I ELiX  CD  *T  KGL  S »NJM  ER !C ( 4) ) ; 00003100 

LINK.NP  IS  MELOICONTRuLS»NU4ERIC(A)|  8 00C03200 

COEFF  IS  F I ELD! CONT  Rf)L  S , l 1 2 ) » NJML R I C ( 4 ) ) ; 000)3300 

000  J3301 

00003  302 

/•  •/  00003303 

/•  " A_3ANK"  FILE  DESCRIPTION  ♦/  00003304 

/•  */  00003305 

/**«*«******««*«****»*»•***«»*»•*»«**•»*«**»•*»*#*****»****#«•*»*»' • / Q0003306 

00003307 

AKBANK  IS  FILE(A,KEY»N'JMRER, FIXED, SAN);  00003400 

TM.SfiR  IS  RECORD! A_jANK, ( 5,4 ))  ; 00003500 

N'JMOER  IS  F IEL0I T 1M_SER,  NUMER  IC I 4)  ) ; 0000  3600 

LAf'FL  IS  FICLD(TIM_SERtf4iJHERlC(4M  5 00003700 

DATA  IS  FIELOI  HM_SER, (20), OCCIMALl  14,5)1;  00003800 

00003801 

/«***»*»•*»*«»»*» •**«»«•*** »*#***»»•*#»•»**»»»«***•»•«»#••»*****•«#»/  00003802 
/•  •/  O0003803 

/•  "TRADAT"  FILE  DESCRIPTION  ♦/  00003804 

/•  •/  0O003805 

/•»»**»•***•»»****»»***•#**»••»*•«*«*»»***•*»*»*»»**»*»*»#*•»•»••#*»/  00003806 

00003807 

TRA3AT  IS  FILE! A,F IXED, SAM) ; 00003900 

SHARE  IS  RECORD! TRADAT) ; 00004000 

A 70  IS  FIELD!  SHARE,  ! NO_CNTR Y , NO_CNTRY  ,4)1;  D0004100 

00004101 

/#**•*•»»»**••»»•*«*•**»•#*»*»»•*»*«**»«»#*»*#*****»***»***»**»•«*»»»*/  00004102 
/•  •/  00004103 

/•  INTERIM  DATA  DESCRIPTION  STATEMENTS  ♦/  00004134 

•/  00004105 

/*»•**#•»**#*****»*•*•***•***»•**•#*•»*•*»»*»*•**•*»»****»»#•«•«••«»«•/  00004106 

00004 107 

FNO_YR  IS  FIELO;  00004200 

$ I 00  03  IS  INTERIM;  O00J43U0 

310)02  IS  INTERIM;  00004400 

31  ) ) 3 1 S INTERIM;'  00004500 

L AS_  Yrl  iS  INTERIM;  00004600 

NI.C4TRY  IS  FIELD;  000)4  700 

V ML  ) 9 IS  INTFRI  M(  ( *,  ;)«)_r.MTJY  , A.LI  NK.YR  IfcND.YR  ) , OFC  I MAL  ( 14,6)  ) ; 00004800 

VMI.  IS  INTERIM!  IMO_SNTRY,  A. L INS.YRSENO.YH, 4)  ,ULCMAL!  14,5))  ; 00004900 

PML  IS  INTERIM!  (V»_CNl  <Y,  A.L  |N<_YH  iENrI^YR,4)  ,LFC  I MAL  I 14,5  ) ) ; 00  0 )5000 

V*L  IS  I NT  r R I 1 ! ( NO  _C  ,H  2 Y , A.L  I \<_Y  R : CND^YK , 4 ) , OtC  I M Al  ( 14,5));  00005100 

P XL  IS  INI*-  UM  (M'V.NTRY,  A.L  I NK.Y  R S T N.)_  YR  , 4 ) ,DCC  MALI  14,  6)  ) ; 00005200 

XL  IS  INTER!  3 ( 1 00_r  . T P Y » L AS_  v R : F < )_Y  , 4 ) , OF  C I F*  AL  ( 14 , 5 ) ) ; 00005  300 

A _ X IS  nrrf<ri|  (LA  ,_Y*C(  ND_Y.<  ,4|,  3CC  MAI  I 14,5)  ) ; 00005400 

B.x  IS  TNT'K!  4(  !LAS_YR  8lM!)_Y  P,  4),  OF  cl  / ALI14,5»);  01,0)5500 

A.PM  IS  l lT«  RIMI  II.A  ,.Y4  iLNO.V.a,*,)  ,01  i.  IMALC  14,5)  » ; 00005600 

IS  IN  I Lri  I M ( ( L 4 j_Y ! :F  N > _ YK , 4 ) , Oi. 1 MAL (14,5));  000)5730 

A _VM  IS  INT*  RIMICLI  4<-Vi<!FN!).VR,4),orC!MAI.(l4,5));  00005800 

H_V  A IS  INTFRIMI  (l  I N<_YM ! F V) _ Y < , 4 ),  )!  Cl  MALI  14,5)  ) ; 00005900 

A_PX  IS  INTERIM! (LINK.YRSENJ.YR, 4 ),0EC|MALI 14,61 ) ; 00006000 


C.3  (Cont.) 
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is 


INTER  KM  ( <llNK_YR:EN0_YR,4),DEClMALtl4f5n  l 


/•  •/ 

/♦  SUOSCRIPT  DESCRIPTION  STATEMENTS  •/ 

/*  •/ 


FORE  ACM AMEADER  IS  S Jfl SCR  I P T ( HEADER » I l # I . I . I ) > i 
r JRE  ACH»COv/:<TRV  is  SJilSCRIPT  ICOUNTRV,  C l , N(J_CN  TRY , Ullli 
FORE  ACHMOTAL  IS  SUBSCRIPT  (TOTAL,  ( 1,  1 v I » 1 ) ) • 

FORE ACHACONTROLS  IS  SJrtSCR 1PT ICLN IROLS* C 1 , l , l » l) ) J 

FORE  ACHAPfP  lf»0  IS  S'J 'I  SCRIPT  (PERlG')tlL  INK_YR  v f ND_YR  » l » I ) ) • 

F0R6ACHAVML09  IS  SUBSCRIPT ( VML 09, ( l,*,i,ll)  ; 

K IS  SUBSCRIPT (VXL>( I »4  * I » 3 I I i 
J IS  SU3SCP IPIIA70»ll #NQ_CNT RY,i,2)l{ 

I IS  SU3SCRIPTI VXlt( l ,NO_CNTRY, l, ll); 

T IS  $'mCRI?r<VXl'(A.lINK_Vk»ENO_YRti«2!li 


/♦  •/ 

/♦  ASSERTIONS  •/ 

/•  ♦/ 


AAAI  0001 : 

AI000l*PMLi 1 # T » K ) • VMLIJ.T.K)  / VML 09 ( I f T , K I J 
AA0023: 

VML09| FORE ACM AVML09, I .7 7* SUM! VML I I,T,KI,K); 
AAOOm 

B_PNILAG_YR,K)*B_BANK.DATAI 1 ,K,LAG_YR)5 
AAOOIS: 

A_PMC  LAG^YRfK  l*A_BAMK#.)ATA(  l , K,  LAG_YR  > » 

AA  001 7 I 

B_Xt LAG_YR  f K)*B_OANK«  DATA  I 5 , K ,LAG_YR I l 


AA0016: 

A_X( LAG_YR,K)»A_BANK.DATA(5tK,LAG_YR| i 


A40015I 

B_PM( T,KI*PHL(2,T,KI { 


AAOOIT  x 

B.XI  T,K)*XL<2, T ,KI  ; 


AAOOll  : 

PXLI  2,T,K)*B.PXIT,K|.5 


A A 0009: 

VMlf  2,T#K)*B_VMCr,KU 


A A 0006 I 

IAG-VR*A_I NPU  T . L I NK_YR I FORE AC HACON TRUE S I - U 


A A 0006  J 

0_PX<  T«KI*U_  INPUT.  COEFF  IK,  7) 
B_!NPJT.CrurF(K,9)  • B_P*4  < 

it.K  I ♦ 0. INPUT. COEFFIK,  ID 


♦ B_ INPUT . CUEFFIKf B)  • T ♦ 
T,KI  ♦ J.INPUT .COCFFIK, LOI  • 

♦ n.XlTfX)  ♦ B_INPUT.COCFF( 


tt_PM( 
K t 121 


T - 

A 


00006100 
00006101 
00006102 
00006103 
00006106 
0O006105 
00006106 
000J6107 
00006200 
00006300 
00006400 
00006500 
00006600 
00006700 
0000680 0 
00006900 
00007000 
00007100 
00007101 
00007102 
00007103 
00007106 
00007105 
00007106 
00007107 
00007108 
00007109 
00007110 
00U07111 
00007112 
00007113 
00007114 
00007115 
00007116 
00007117 
00007118 
00007119 
00007120 
00007121 
00007122 
00007123 
00007124' 
00007125 
00007126 
00007127 
00007128 
00007129 
00007130 
00007131 
00007132 
00007133 
00007134 
00007135 
00007136 
00007137 
00007138 
00007139 
00007140 
00007141 
00007142 
00007143 
00007144 
00007145 


I 

C.3  (Cont.) 


>*  *• 


B_X( T-l »K) s 
SA0001 : 

R_V^<T,K)*H_lNPIJT.CneFr(K,ll  ♦ P.INPUT .COEKF IK,2»  • I ♦ 
O.INPUT .CUl  FF IK, 31  * t)_P  M(  F , K I ♦ d_ | NPU J . CO£ F T I K , 4 I • 8. 

kJ  ♦ H.lMPUT.COcF  FIK.^T  • l.XIT.N)”*  B_  I NP  J I .CUE  f M K , 6 ) 
T-UKi; 

SA002I : 

PERinOI f I - T 5 

SAD024: 

NAME  (FOREACMSPERIOf)#T  J * • NAME  • 5 
SA0025: 

PRICEIFORF  AC  HiPERln  ■)*?)*•  PR  ICE  IMPORT  • ; 

SA0026 : 

VALJEl FORE ACHSPER IDO, T )*• VALUE  CXPORT*  J 
SA0027: 

OATA.OESCR !PTI0NIT,ll*l; 

SA0029: 

PI T, I ) * SUM! $ 1 000 1 ) ; 

SA0030: 

VI T,  ! ) * SUM! VXL ( I • T • K ) ,KI  ; 

SA0031 : 

T W ( I , T I 3 SUN ( V < I , T ) , I ) ; 

SAOOO 7: 

NU.CNTRY m2; 

SA0005 : 

ENQ_YR*A_INP'JT.L  INK.VRI  FnREACHiCONTkOLS)  ♦ A.1NPUT.L  INK.NPI 
F JR  EACH  SUJN  TROL  S ) i 


SI MJLT ANECUS  ASSERTIONS 


S A 00 20: 

vxii  i, r,K)-suf< si 0003 tJi ; 

SA  S 10003 ! - - - 

SI0)0l-A70l  I , J,K)  • V*l(8,T,KU 

ssooor  : 

VMLI  1,  r,M«A_VM|  f ,K»  ; 

sa  oooi : 

A_v<  I r ,<»  *A_  INPUT  sC-FFFFCF'JS  t ACHSCCNT  MOLS,  l 1 » A_ INPUT. CUFF FI 
F ru  ACHSCCi-lTROLS,  M • T ♦ A_  | NP  J ! . Cl  Ff  F I FCP  t AC  M SC  CM  » CL  S , 
A.P'HT,K»  ♦ N *JJT  •r.TLF  F I FORK  ACH  SC  CM  RNL  S ,4  ) • A.PMIT-l, 

A_  INPUT  *COr  IF  I fi  M F AC»i  SCON!  K(JL  S » S I ♦ A.XlT.M  * A.INPUl.tU 
FORI  SCHSCONlRf.XSi  41  • A_X|T-l,K); 


00007146 
000 J 7 14  7 
UOO  J714B 
0000  714*7 
PM  I I - l ,000  J7 ISO 
♦ ii.AlOOO.J7  IS1 
000 J7152 
000 J 7 l S3 
000 J 7 154 
00007155 
00007156 
00007157 
00007158 
00007159 
00007160 
00007161 
000 J 7 162 
00007163 
00007164 
00007165 
00007166 
00007167 
00007168 
00007169 
00007170 
00007171 
00007172 
00007173 
00007174 
00007175 
0000  71  76 
00007177 
00007178 
00007179 
00007 180 
00007181 
00007182 
000  )718J 
00007194 
<*•••/  000)7185 

♦ / 000  J 7 1 86 

•/  000)7187 

• / 000  )7188 
**♦♦♦/  000)7189 

00097190 
uO 007191 
000 J7  192 
0000  7 19  i 
00007194 
000J7195 
00097196 
00007197 
00007 198 
00097199 
000  )7200 
0000/201 
000 07202 

J ) ♦ 000)7203 

K ) ♦ 00007204 
IFF!  000  J7205 

00007206 

00007207 

00007208 


(Cont.) 


t 


A.XC  T # K)  *Xl ( 1 1 T t K I S 

SA0022: 

XL  1 1 ,T,K)»VXLI  1 f TrK)  / PXUUT.K); 

SAOOIO: 

PXL I | • T • K ) = A_  PX I T » K I J 
IA 0002 : 

A_PX ( T fK ) *A_ INPUT • COEF F I FORE ACHSCCNTROL $»  7)  ♦ A_ I NP UT .CULT F ( 

FIRE  AC H SCON  TROLS  » ^ l • T ♦ A_J  NPUT  . CtJEF  f ( F OR  t ACHSCONT  K OL  S . 9 I ♦ 
A.PMIT.K)  ♦ A_INPUT  .CQFFF  ( FORE ACMSC GNT ROL $ • 101  • A.P.4I  T-l  VK  I ♦ 
A.INPUT.COCFFIFOKFACHSCONTkOLS,  1 l I ♦ A_X(T,K)  ♦ A,  INPUT .COEFF  ( 
FORE ACHSCUN  TRQL  S * 12  I * A.XCT-l #K)J 

SA001*: 

A_PM|T,K)-PMHl,T,K) ; 

SA0021 : 

PML( J*T,K)«SUMC 1 1 0002 f 1 1 • 

SA SI  0002: 

S10002*PXL( t,T,K)  • A70(IrJ,K)5 


END  OF  SIMULTANEOUS  GROUP 


00007209 
00007210 
00037211 
0000/212 
00007213 
0000/21* 
0000  7215 
0000/216 
OOOJ7217 
0000  7218 
00007219 
0000/220 
0000/221 
00007222 
0000/223 
00<  0722* 
0000/225 
0000/226 
00007227 
0000/228 
00007229 
00007230 
00007231 
00007232 
00007233 
0000723* 
00007235 
00007236 
0000/237 
00007238 


415 


|*0  56  5*0026  ASS£A?*0N  N*H€ 


ASSERTION  same 


416 


4 


IHTUIHIOECIIMM  14,5 


*»  <-»lU0.UNN.,.tM,_»l„  I N jo^no*  IN  *.  MILO.CHM 


418 


420 
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appendix  d 


t 


This  Appendix  list  the  PL/1  source  code  of  the  matrix 
and  vector  manipulation  functions,  random  variates 
generators  and  other  model  building  utility  procedures  as 
described  in  chapter  8. 
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bAN*  3 SH 

VERSION  S.3 


PL  1 C -vi* -0J3G78 


OS/360  PL/1  COMPILE*  <f>  ON  V*0S 


PAGE 

0 a T f 7a. 


S IM 

L 6 V £ L 

Nl  ST 

1 

f'.vt'IO:  fioufu'l  <*  i»t"'.Ze»0>; 

oooigooo 

/ * 

uOO?OOCO 

P K 0 C k.  D U m f PcT*lvS  INVEST  "F  SQUARE  SV«*(T»1(  PATRI* 

05G3OOOG 

OF  ASl>  COMPUTES  (OfMlCUNTS  u * |ft|V(*'D»K'V 

CC04G00D 

(IE  Tu  of  U'tn  IV  IIS  ll«(  l »lCuL»I IONS > 

00050000 

A<N,S)  - 1*.PUI  NAIM*  OF  MOMENTS. 

DOQ6GOOO 

MN,S)  - 0 U 1 * o T ntR|»  •ITM  INVERSE  AND  COEFFICIENTS 

COO  70000 

l*  R (1  :N-I  ,n  ). 

00080000 

• / 

C009Q0Q0 

? 

1 

OCl  ( a <•,*>,«  1 «,♦>,  z f in,  DEf  •»  in  ,»«)  BIN  (10»I<53); 

OOICOOOO 

3 

1 

CCL  9 IS  FIXED; 

oonoooo 

4 

1 

DO  ]*1  10  N; 

00120000 

5 

1 

1 

DO  J*1  TO  N; 

001 SOCOO 

6 

1 

i 

Ml  , J ) * A < I , J >; 

G0 1 40000 

7 

1 

l 

END; 

oonoooo 

* 

1 

t 

END; 

00)60000 

9 

1 

0 fc  T * 1 . ; 

C01 70G00 

10 

1 

DO  X = 1 TO  N-1; 

G0180C00 

11 

1 

1 

CET  * DEI*»(K,K); 

00190000 

/* 

0020u000 

NlSS»l,fS  h r » * R C J*.C  10  "KflCEL"  STATEMENT  NUHBE« 

00210000 

CAN  *i  INTRODUCED  rt  CODE  generation  AS  FOLLOWS: 

00270000 

OlCIt.  - D1CTJ0*A»V  NUM°E  • OF  CURRENT  STATEMENT 

00230000 

calling  function. 

00240000 

XlNCluPl  1NCU6  USi>$S); 

002  SG000 

OIL  lint  EVThT  (BIN  (IKI.EI’IIKO; 

COc6GOOQ 

CALL  AC.Dh  CD ICT*, STORAGE  PTR) 

OOc/OOCO 

002*0000 

USER  Llifl  fc  P L J N F * CAN  THEN  Bt  PASSED  AS  PARAMETERS 

0P290D00 

TO  P^OC i DUR  E . 

00300000 

*/ 

GO  3 1 0000 

17 

1 

1 

IF  Dll  < Z*.* 0 THEN  RETURN; 

oonoooo 

14 

1 

1 

r«  * 1 • /* 1 a »K>; 

GO  3 30000 

IS 

1 

1 

003*0000 

16 

1 

1 

DO  J = 1 ro  n; 

00^50000 

1 » 

1 

2 

Mr  , J)  = RR  -9U,j); 

00360000 

1 3 

1 

7 

evo; 

GO  3 70000 

1 " 

1 

1 

DO  j =1  TO  N-1; 

GO  3*^0000 

J”! 

1 

< 

IF  r.  = l I HEN  GO  10  CONI; 

00390000 

7? 

1 

< 

Mr  •»<!•«); 

03*00000 

71 

1 

€ 

fc 1 1 ) = v.; 

GOa 10000 

74 

1 

2 

CO  2*1  TO  N; 

00470000 

75 

1 

3 

MJ  , J > » »<l,J>  - «II*»(K,J); 

00*30000 

26 

1 

3 

END; 

00440C00 

77 

1 

2 

CONT:  tNo; 

GO  450000 

7 7 

1 

1 

e nd; 

00460300 

29 

1 

E-.D  HHVERTD; 

C0i7000D 

ATTRIPU7E  TAULE 
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GAN A 351* 

VC  MS  ION  5.5 


04 / 14/78  PiIC-Vt»-0J3u78 


05/360  PL/1  COMPILER  (F>  ON  VNOS 


PAGE 

date  78.1 


ST»T 

1 

LEVEL 

NEST 

MOMENTD:  PROCEDURE  (R ,A,M,N); 

/• 

COMPUTES  ALL  MOMENTS  OF  MATRIX  A<M,N> 

♦/ 

2 

1 

OCL  (A<«,  ♦)  ,fc(«,0)  BIN  FL0AT(53>, 
<m,N,1  , J,K)  ti 1 N FIXED, 

5 blN  FLOAT (53); 

3 

1 

DO  l*i  to  n; 

4 

1 

1 

DO  J=1  TO  N; 

5 

1 

i 

S = 0 • J 

6 

1 

2 

DO  «*1  TO  M; 

7 

3 

S * S ♦ A ( K t 1 ) * A ( K , J ) ; 

n 

1 

3 

END; 

9 

1 

2 

R(I,J),R(J,1)  « S; 

10 

1 

2 

END; 

1 1 

1 

1 

END; 

12 

1 

RETURN; 

1 3 

1 

END  MOMENTB; 

00010000 
00020000 
00030000 
00040000 
GO J50000 
Q0C60009 
00070000 
OOOPGOOO 
00090000 
OOICOOOO 
GO  1 1 0000 
CO  1 20000 
00130000 
C0 1 40000 
00150000 
00160000 
00170000 
00180000 


ATTRIBUTE  TABLE 


OCL  IDENTIFIER 


ATTRIBUTES 


2 A 

2 I 

2 J 

2 K 

2 M 

1 NONE N TO 

2 N 

2 « 

2 S 


<•,♦>  PARAMETER  ALIENED  BIN  FLOAT (LONG ) 

auto  aligned  bin  fixed<15,0) 

AUTO  ALIGNED  PIN  F1XED<15,0) 

AUTO  ALIGNED  BIN  F!XLD(15,0> 

PARAMETER  ALIGNED  BIN  FIXED<15,0> 

ENTRY  tIN  FIXED<15,0) 

PARAMETER  ALIGNED  BIN  FIXED(15,0> 

<*,♦>  PARAMETER  ALIGNED  BIN  FLOAT(LONG) 
AUTO  ALIGNED  BIN  FLOAT! LONG ) 


STORAGE  RE  GUI  RE  PEN  TS • 

The  STo°AGE  AREA  (in  STAHL)  for  THF  PROCEDURE  LABELLED  MOMENTD  IS  244  BYTES  LONG* 
THE  PROGRAM  CSECT  IS  NAMED  NONLNT  0 AND  IS  5c6  PTTES  LONG. 

THE  STATIC  CSECT  IS  NlPEO  MOMcNTDA  AND  IS  332  BITES  LONG • 

•STATISTICS*  SOURCE  RECORDS  * If,  PROG  TEXT  STMNTS  • 13,  OBJECT  BTTES  * 586 


COMPILER  diagnostics. 


WARN TNGS. 

I f HO  52  o I 1 OPTION  MAIN  HAS  NOT  0 E E N SPECIFIED  FOR  THE  EXTERNAL  PROCEDURE,  STATEMENT  NUMBER  1* 
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OAK*  361'.  „4/14/F»  PI  1C -Vl«-?JJG73  PA  0 1 

vtASiiN  5.S  01/360  pi/i  compiil»  <i>  on  vnos  oatf  tc 


M”T  LF  V t L NE  S r 


1 

*1\V3:  PROCEtuRE  <»  , » , N , l tPO > ; 

GO0 10000 

/* 

00020000 

I-4TH1*  IKV'nSiOK  PROClOU&E  FOR  GENERAL  SGU*RE 

MATR]  i 

COO  '0000 

USING  nk*l*u*  PIVCT  STRATEGY* 

00040000 

A<N,N>  - INPUT  iAIRl*. 

G035C000 

W <*',*.)  - W L TURN'S  0 INVERSE  * F A. 

0C36QC00 

2 E R 0 - 2 E R C DtElM’IOS  f OR  TOLERANCE. 

uOG  7GOOO 

*/ 

UOUImXOO 

2 

1 

D C l < « < •,  *>,A<*,»),2»RO,DE7fSb*#RHSfTlr.  T , A , P 1 V 

.PI  Vi,  TOL,  TEMP) 

00D9UD00 

PIN  FiCAM*3>; 

GOT  GGCGO 

1 

1 

PCI  ( 1 , J , i IN  ) , I t <N  ) , t e ,r  ,1  ,N  ,N  , I h »»<  ) blN  FIXED; 

00110000 

/ • 

c 3 1 2Cr  00 

MECSALES  kEIFPRP.G  TO  “MODEL"  STATEMENT 

NUMBE  R 

JO  1 SCOOO 

CAN  -t  INTRODUCE*  <M  CODE  G E E t RA  T I ON  AS 

f OLLOWS  : 

ocuocoo 

CiCI»  - DICTIONARY  NU  M*»  t R Of  CURRENT  STATEMENT 

G0 1 50C00 

CALLING  FUNCTION. 

G016OCOO 

UNCIjDl  I a CLIP  CD  St  ASS); 

C0W3C00 

DCl  A C R D R ENTRY  <dlN  f I A E 0 , PO l N T E R > ; 

00 1 60000 

CALL  ACKCR  (PICT*, STORAGE  P T R ) 

00190000 

C0200C  00 

USER  L T N r A fcPLlN*#  C*N  THEN  Pt  PASSED  AS 

PARAME  TERS 

00  2 1COOO 

|0  f^OCtDURE. 

C022G000 

•/ 

CO  2 3 O'!  00 

4 

1 

0t  r * 1 

00240000 

5 

1 

SU“  * 0.; 

00 i 50000 

f 

1 

tO  1^1  TO  N. 

C026C:00 

7 

1 

i 

oo  J=1  to  n; 

30270000 

« 

1 

t 

M T , J)* A(I  , J ); 

00283000 

0 

1 

c 

So*  * ' u* *R (I , J ) ••?; 

00290000 

r 

1 

c 

f NO; 

00300000 

1 1 

1 

1 

END; 

GO  3 1 0000 

i? 

i 

SU*  = SGRTTSl'N); 

GO  3 2 0000 

1 ! 

i 

rms  = Soi/<  * •<; 

L03!0D00 

1 4 

i 

TOL  - /( R 0 • S ; 

OC 340000 

1* 

i 

i*'.; 

00350000 

1 A 

i 

1 R , I c --  0 . ; 

GO  360r  00 

1 7 

i 

RR^N; 

0037UG00 

1 • 

i 

DO  fcM IL  E (5<P<  ); 

0 0 3 0 ? 0 0 

1 0 

i 

\ 

i .JO; 

jO  390000 

2* 

i 

1 

IE  ST* J.; 

00400000 

21 

i 

1 

DO  * = 1 10  V; 

0041CC30 

^ j 

i 

< 

If  !,.<*>  THEN  GO  TO  OUTR; 

oo  42c: oo 

24 

i 

£ 

IF  l Mu  N; 

oo43c:oo 

25 

i 

3 

11  lid)**!)  tMCN  60  TO  OUtf; 

00440300 

27 

i 

3 

A'jS  (R  U ,l  >>; 

c04SCrC0 

2 • 

i 

3 

I»  A < TEST  then  GO  to  OUIC; 

03663C00 

3? 

i 

3 

! -K  ; 

0^4  70000 

} i 

\ 

3 

j-l ; 

00400090 

3? 

i 

3 

TwS I *■; 

GC490CO0 

3* 

i 

3 

0"TC:  END; 

00300000 

34 

i 

i 

OuTm;  END; 

ooiioroo 

« 


I 


jta 
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LANA  1617  Q 4/14/7*  PL 1 C - Vt» -0 53078 


STM  LEVEL  NE  ST 


35 

1 

1 

Pi V*e<Ig J); 

00520000 

16 

1 

1 

DE 1 -P] V»DfcT; 

G0530900 

16 

1 

1 

If<A<-StPlV>  <*  TOO  THEN  GO  TO  SING; 

C0540C00 

3« 

1 

1 

IMI  )*J  ; 

00>50000 

at 

1 

1 

I C < J ) * 1 ; 

00560000 

41 

1 

1 

piv*i./piv; 

GO  5 7Q00O 

4? 

1 

1 

MI  ,7>=PIV; 

0053CC00 

4 1 

\ 

\ 

DO  N = 1 10  N; 

G05VOOOO 

44 

1 

2 

IF  K"*J  THEN  h (l  , K)  - »(  I . A)  *PI V; 

00600000 

46 

1 

L 

E NO  ; 

0061 jC00 

47 

1 

1 

00  K*1  TO  N; 

G062C000 

47 

1 

C 

i r * M then  go  to  out; 

00630000 

SO 

1 

i 

pi vi=* 

00640000 

51 

1 

2 

DO  1-1  TO  n; 

00650000 

5? 

1 

1 

If  L"*J  THEN  R(K«L)-POC«l)  - P IV1*R<I«L); 

00660000 

54 

1 

S 

ENo; 

00670000 

55 

1 

2 

OUT;  END; 

00680000 

56 

1 

1 

DO  K = 1 TO  N; 

00650000 

$7 

1 

i 

IF  K**I  THEN  ft  (A  , «I)*-PI  V*»  (A,  J)  ; 

00700000 

5« 

1 

2 

END; 

00710000 

60 

1 

1 

S * S ♦ 1; 

CO  7 2 0000 

61 

1 

1 

end; 

00  73GOOO 

6? 

1 

00  1*1  10  N; 

00  740900 

6» 

1 

1 

k * I C ( I > ; 

CO  750000 

64 

1 

1 

**!*<!>; 

GO  760C00 

65 

1 

1 

IF  THEN  60  TO  LAST; 

00770000 

6 7 

1 

1 

Of T*-DET; 

00780000 

67 

1 

1 

00  L* 1 TO  H; 

00790000 

60 

1 

2 

T£NP*R(K*L>; 

00600000 

70 

1 

2 

ft (K ,L1-h ( I ,l); 

00610000 

71 

1 

2 

o<I ,L)«TENP; 

00820900 

77 

1 

2 

END; 

00830900 

7? 

1 

1 

DO  L * 1 TO  N; 

00840000 

74 

1 

2 

Tl*P*ML  ,*>; 

00*50000 

75 

1 

2 

; 

COpDODOD 

76 

1 

2 

ft <L • 1 )*TEHP; 

00*70000 

77 

1 

2 

END; 

O088G000 

7 f 

1 

1 

IC 

00890000 

79 

1 

1 

1 k U)*N; 

GOVOOOOO 

BO 

1 

1 

LAST:  END; 

00V1G090 

ai 

1 

SING:  IAAnk«S; 

0097G000 

8? 

1 

ENO  NINVO; 

OOVSOOOO 

MlFiruTI  TABLE 

OCL  IDEMIMEP  AT  TP I GUT  ES 

2 A 

ABS 

2 of  r 


PAGE 


<*,♦)  P»»MUFH  ALlfN'O  BIN  fLOATfLONG) 
GENERIC  BUILT-IN  FUNCTION 
AUTO  ALI6NET  BIN  FLPAT(LONG) 
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GANA  5525 

VERSION  5.5 


04/17/78  PL1C-VLR-053G78 


0S/36H  PL/1  COMPILER  <f>  ON  VMOS 


PAGE 

DATE  76. 


S 7*7 

LEVEL 

NEST 

1 

EIGEND:  PROCFOURF  < A , A , N , M FR E 0 , A* AX , V 1 f R 0 , E P S ) ; 

oooionoo 

/ • 

00020000 

POWER  AfcTHPO  TO  DETERMINE  EIGENVALUES  And  EIGENVECTORS 

GOGSODOO 

Of  AN  N X N REAL  MATRIX  A. 

GC34GG00 

A ( *»  • N ) - MATRIX  WHOSE  EIGENVALUES  ARE  REQUIRED. 

GOOSOOOO 

tt  I S » N ) - BFF’EATtD  PBCuUCT  «ATBI»,  B = ( A -L  A *0  A ( T > *1  ) 

ooooocoo 

< A-L A»DA  C?> 

OOOZOCOO 

C ,D  " AUX 1 L 1 A n Y MATRICES. 

G0Q80C00 

EPS  - TulEFANLE  US‘0  1 »>'  CONVERGENCE  TEST. 

G0090000 

ioenmn,*.)  - identity  matrix. 

00100000 

REOA ThOoOnAL  1 /a r ions  OE  V. 

GC  1 1 0300 

MM  A X - MAXIMUM  NUmPE*  Of  ITERATIONS. 

G01 20000 

V - CURKfST  APPROXIMATION  TO  EIGENVECTOR. 

G0 130000 

VZFRG  - START iNu  GUESS  f OR  EIGENVECTOR  V. 

00140030 

y - Auxiliary  vector. 

G0 1 50C00 

R(N«1,N)  - OUTPUT  MATRIX  WITH  EIGENVECTORS  IN  R(2:N*1,») 

00160000 

AND  EIGENVALUES  IN  Ml,*). 

0 0170000 

COULD  bC  MODIFIED  TO  USE  STRUCTURE 

G0 1 hGOOO 

D CL  1 R. 

o0190C00 

2 LA»oDA <N> « •£ 1GENVAIUES* 

00200000 

2 UO.,‘i)  9 1 N FLOAT  <5  3)  ; *fc  1 GENVECTORS* 

00210300 

f 0 R MOrE  convenience 

00220C00 

M - 1 TEKAT  ION  COUNTER  . 

G023G0C0 

MFREO  - NUMbER  OF  ITERATIONS  bETwEEN  PERJOOIC 

C0240C00 

♦/ 

C0250000 

2 

1 

DLL  CB(»,.),»(B,»),»iFfiO(O,'PS,0<N,V)1IOE.T('F,N),»<N),T(N), 

C0260000 

LTeBU,  L , l (ut*  > ,C  (*.  ,M  ) «IN  FLOMlii); 

00270000 

3 

1 

OCL  (N,M,MFRFGtr.MAX  ,1  ,j,K,!Ml>  blN  FIXEO; 

0Q280000 

4 

1 

OCL  mate  00  £M»  t; 

G02  90000 

3 

1 

ccl  matveco  Entry; 

03  J 00300 

6 

1 

CCL  VECLENO  ENTRY; 

00  s 1 0000 

7 

1 

dc l sc'veld  entry; 

gO J20COO 

A 

1 

t>  C l SCAMATO  FNTRY; 

GO  330CC0 

9 

1 

DC  L MATSUoD  CNTmY; 

-0 JAOOOQ 

m 

1 

DCL  MATMLTO  ENTRY; 

0015JCC0 

1 t 

1 

I0{.  r,a, 

0036U3C0 

i? 

1 

DO  l»1  TO  NJ 

00170000 

1 3 

1 

1 

i OEN  TCI , I ) * 1 .; 

00380000 

14 

1 

1 

END; 

00590000 

/*  SET  U EO  TO  IOEnTITY  matrix  — */ 

G04000CO 

15 

1 

TALL  BA  IF  OB  To,  lOINT  ,N  ,il); 

00410000 

/• P 0 « E R METHOD  FOR  ALL  EIGENVALUES */ 

00*70000 

16 

1 

00  J=1  To  N; 

J0430000 

/•  MODIFY  STARTING  VFCTOR  SO  THAT  IT  IS  ORTHOGONAL  TO  ALL 

0C440C0Q 

PREVIOUSLY  COMPUTED  EIGENVALUES  •/ 

C0450C00 

1 7 

1 

1 

CALL  *ATVCCD<V,F,VZERO,N,N); 

0046CC00 

1 A 

1 

1 

CALL  VttLFNOUlCBO.O.N); 

U0470C00 

f,  PERFORM  SUCCESSIVE  POVER  METHOD  ITERATIONS  */ 

00480000 

19 

1 

1 

DO  "-1  TO  MMAX; 

G0490000 

/•  PERIODICALLY  R E -OR T M060NAL 1 7 E THE  VECTOR  V */ 

00500000 

20 

1 

i 

A«MOD(M,MF REW); 

00s  10000 

G A N A 


5525  u4/1//78  PI IC-VER-PJ3078 


S T"l  LEVEL  Nf  S T 


21 

23 

24 
28 
26 

27 

2« 

29 

30 
3? 

33 

34 


33 

36 

3 7 

38 

39 

40 
4? 
44 
43 

46 

4 7 

48 

49 

30 

8? 

33 

54 

53 

56 

57 


2 If  K =Q  ThFN  00; 

3 call  »ATVECD(ttB,V»N  ,*>; 

3 CALL  VlCLEND(LtV,N>; 

3 CALL  3CAv£C0(V(1.0/L.TaX>; 

3 END; 

/* 1 0"P  U T£  Nf*  VECTOR  V A A D ITS  LENGTH •/ 

2 CALL  "ATVf C D(T  ,A ,V,N,N); 

1 CALL  VtCL FNOCL  ,V,N ); 

<.  CALL  SCAVLCO (V  ,1  .0/L , I ,N>; 

/• CONVERGENCE  1 1 S T */ 

2 If  AnS<U-LJtR0>/L4>  R0>  < EPS  THEN  GO  TO  CONVERG; 

2 LZE  RO*L; 

2 END; 

/•  SAVE  PARTIAL  RESULTS  If  HETHOD  DIO  NOT  CONVERGE  */ 

1 I Nl*I-1; 

/• 

MESSAGES  m E f E R R IMG  10  "MODEL*  STATEMENT  NUMBER 

CAN  PE  1NIRO0UCE0  HI  COOE  GENERATION  AS  FOLLOWS: 

OICI#  - OiCUONARV  NUMBER  Of  CURRENT  STATEMENT 
CALLING  FUNCTION. 

I1NCLUDE  JNCLIB  (OSEASS); 

DCL  ACRDR  ENTRY  (BIN  f 1 1 E D , PO I NT E# ) ; 

CALL  ACRDR  CD  ICI#»S(ORAbE_PTR) 

USER.LINE#  iPLINE#  CAN  THEN  RE  PASSED  AS  PARAMETERS 

10  PROCEDURE. 

•/ 

1 PUT  SKIP  L1SI  ('NO  CONVERGENCE.  PARTIAL  RESULTS  ONLV'3; 

T PUT  SKIP  EDIT  ('VAlIDITV  RAN*  tl-U  lSj'.lMl) 

< A , E ( 5 ) ) ; 

1 RETURN; 

/• ESTABLISH  SIGN  Of  E IGF  NVALUE ♦/ 

T CON VE m G : CALL  M A T VE C 0 < T , A , V, N , N ) ; 

1 00  K*1  TO  Hi 

2 If  <AbS(V(K>>  < 1.0E-3  ) THEN  GO  TO  ZERO; 

2 If  (V(K>*T(A)  < 0.0)  THEN  L«-L; 

1 GO  TO  STORE; 

2 ZERO:  END; 

/•  SfORC  CURRENT  EIGENVALUE  t EIGENVECTOR  •/ 

1 STORE:  All » 1)*L; 

1 DO  K *2  10  N«1; 

2 RCK,  I)*VCK-n; 

2 END; 

/* M 0 0 1 TV  MATRII  B •/ 

1 If  I <N  I H f N 00; 

2 CALL  SCAMATbCC(L« IDENTfNtN); 

A CALL  MAI$uBD(D(AfC  • M ( N ) ; 

2 CALL  MA TMl ID(C ,0 ,B  ,N,N,N) ; 

2 CALL  MATEWD (P  ,C ,N  ,N>; 

2 END; 

1 (NO; 


00520000 
DO  5 30000 
G034G000 
00550000 
00560000 
CO 5 70000 
00580000 
00590000 
00600000 
00610000 
00620000 
00630000 
00640000 
00630000 
00660000 
00670000 
00660000 
006V0D00 
00700000 
00710000 
00720000 
00730000 
00740C00 
00750000 
0076Q300 
00770000 
00780000 
00790300 

ooaooooo 

00610000 

00620000 

006J0000 

00640300 

00650300 

00660000 

00670000 

00680000 

00890000 

OOVOOOOO 

00910000 

00920000 

00930300 

00940000 

00950300 

00960000 

00970000 

00960000 

00990300 

01000000 

01010000 

01020000 


— 
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SANA  5525  0 4/17//8  PL1C-VER-033078 

STM  If  VIL  NEST 

58  1 C NO  (KIND;  01050000 


OCL  I0CNT1HER 

>.  A 

ABS 

B 

« C 

38  CONVCRG 

? 6 

\ E1GEND 

2 IP  i 

3 J 

2 1DENT 

3 IMf 

3 i 

3 K 

2 i 

2 L7ER0 

3 M 

4 HATfftD 

10  MAI«LTO 

9 MAISUBO 

5 matvccd 

3 Mffcfo 

3 MM  A A 

MOO 

3 N 

2 > 

8 SCAMATO 

7 SCAVECO 

44  STORE 
SVSMA1NT 

2 V 

6 Vf (LI  NO 

2 V7  E • 0 

2 ¥ 

45  KAO 


ATTRIBUTE  FABLE 
ATM  JBUTIS 

(•»•>  PARAHf  T ( R ALlfNfD  31N  f l 0 A T(LONG ) 

4(4£A|(  t'Ull  T - 1 N r UNCI  ION 

T*,0  AUIO  ALIGNED  PIN  fLOAr(LONG) 

<•*•)  AUIO  ALIENED  BIN  >LOA?(LONG? 

STM  LA°£l  CONSTANT 

<*,*>  AUTO  ALIGNED  PIN  f L OA  T( LONG) 

E N I 6 T 0 ‘ C f L 0 A T ( SHOP  I > 

PARAMETER  ALIGNED  BIN  f L 0 A T (LONG) 

AUTO  ALIGNS!'  HjN  HMjU5,0) 

(*, a)  A\M  0 ALIGNLO  PIS  ILQAT(LONG) 

AUTO  ALIGNED  BIN  E|*ECM5,0) 

AUTO  ALIGNED  PIN  EIXt 0(15,0) 

AUIO  ALIwScP  PIN  EI«ID<15,0) 

AUTO  ALIGNtf  biN  ELOAT(LONG) 

AUTO  ALIGNED  BIN  ELOAT(LOnG) 

AUIO  ALIGNED  dlN  E 1 A E D < 1 5 , 0 > 

E*I  EN  l« T o IN  f I X f 0 ( 1 5,0) 
t X T IK  TUT  BIN  flXEDf15,0) 

EAT  IN  TV?  d ] u f l *(  0 <T  5 , 0) 

EX!  EM&T  dlN  I !KEO«15,0) 

PARAMETER  ALIGNED  BIN  f!X£0(15,0) 

P A fc  A M E ! ? ft  ALIGNED  BIN  MXtD(IS.C) 
GENERIC  BUILT-IN  (UNCTION 
PARAMETER  ALIGNED  niN  !IXfD(15,0) 

<♦,•>  PAN  AM*  TEA  ALIGNED  3IH  ELOAHLOnG) 
EXT  IMP?  DEC  ELGA  I (SHOP!) 

EXT  £ N I *»  ? DEC  »LOAl(SHO»f) 

STMT  LA“£l  CONSIAN! 

TILE  EXT 

(*)  AUTO  ALIGNED  BIN  UOAT(LONb) 

EX?  ENTRT  5«C  ELOA!(SHO«U 

<*)  PARAMETER  ALiG.NEw  WIN  E LOA  I (LONG) 

(*)  auio  aligned  bin  eloat(long) 

SINT  LABEL  CONSTANT 


STATEMENT  NO.  IDE  N T ! f 1 £ R 


2 

2 

2 

2 


B 

( 

b 

1DINT 


AGGREGATE  LENGTH  TAdLf 

LENGTH  IN  d»ITS 


AOiUS  TA«Lf 
AD JUSTAHL  E 
ADJUSTABLE 

adjustable 
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SANA  3499 

VERSION  3.3 


04/14/74  PI  1 C-VER-033076 


OS/3 60  PL/1  COMPILE*  (f>  ON  VNOS 


PAGE 

DATf  7o  « 1 


S TPT 

LEVEL  NEST 

1 

UNIFORM;  PROCEDURE  ( A , B ); 

/* 

GENERATES  UNIFORMLY  DISTRIBUTED  VARIATES  IN  THE  RANGE 
OETfcEEN  A AND  0 . 

»/ 

2 

1 

DCL  ( A t B « X ) FLOAT < 1 6 ) ; 

/• 

RANNOL  - INSTALLATION  PROVIDED  UNIF(0,1)  RANOOM 

NUMBER  GENERATOR. 

•/ 

3 

1 

DCL  RANNOL  RETURNS  <FLGAT<16>); 

4 

1 

I e A * ( t -A  )*R ANNOL; 

5 

1 

RETURN  (X); 

6 

1 

IND  UNIFORM; 

00010000  * 

00070000 

00030000 

GOO4C0OO 

00050000 

00040000 

00070000 

OOOfcOOOO  1 

00090000 
00100000 
00110000 
G0 1 70000 
00130000 

00140C00  < 

00150300  \ 

00160000  I 


ATTRIBUTE  Mbit 


DCL  IDENTIFIER 


ATTRIBUTES 


2 A 

2 B 

3 RANNOL 

1 UNIFORM 

2 l 


PARAMETER  ALIGNED  DEC  FLOAf(LONG) 
PARAMETER  ALIGN'D  DEC  F LOA  T <L0N6 ) 
EXT  ENTRY  DfC  FLOAT (LONG) 

ENTRY  OEC  FLGAT(SHORf) 

AUTO  ALIGNED  DEC  FLOAT(LONG) 


STORAGE  REQUIREMENTS. 

THE  STORAGE  AREA  (IN  STATIC)  FOR  THE  PROCEDURE  LABELLED  UNI  TORN  IS  216  BYTES  LONG. 

The  program  csict  is  na-id  uniforp  and  is  314  *ytes  long. 

THE  STATIC  CSECT  IS  N A P c D UMfOMA  AND  IS  304  BYTES  LONG. 

^STATISTICS*  SOURCE  RECORDS  * It,  PR06  TEXT  STNNTS  - 6,  OPJECT  BYTES  - 314 

COMPILER  DIAGNOSTICS. 

WARNINGS. 

1 1*0526  I 1 OPTION  MAIN  HAS  NOT  BEEN  SPECIFIED  FOR  THE  EXTERNAL  PROCEDURE,  STATEMENT  NUMBER  1. 

END  CF  DIAGNOSTICS. 

ELAPSED  TINE  .01  MINS 


n 
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GAN»*  3500  04/14/78  PL  1 C -VER -033078 

VERSION  5*5  OS/360  PL/1  COMPILER  CF)  ON  VMOS 


PA6E 

DATE  7o  . 1 


STMT  LEVEL  NEST 

1 GAMMA:  PROCEDURE  ( K ( A ) ; 

7* 

GENERATES  GAMMA  DISTRIBUTED  VARIATES  WITH  PARAMETERS 
"A"  A HD  "A". 

•/ 

2 1 D CL  (TR,X,A)  FL0ATC16); 

3 1 DC  L U,l>  PIN  FIXED; 

/• 

RANNOL  - INSTALLATION  PROVIDED  UNIfO.I)  RANDOM 
NUKoC R GENERATOR  • 

*/ 

4 1 DCL  RANNOL  RETURNS  (FLOAT ( 16) ) ; 

51  TR  * 1.0; 

61  DO  1*1  10  K ; 

7 1 1 TR  * tr*ranncl; 

8 1 1 END; 

9 1 X * -LOG ( T R ) /A; 

10  1 RETURN  (X); 

11  1 END  GA'ftA; 


00010000 
G002C500 
00030500 
00040500 
00050500 
0006CC  00 
00070000 
OOCbCCOO 
00090500 
0010CC00 
00110000 
0012CG00 
0013G500 
00140500 
00150300 
00160000 
00170000 
001BC300 
00190000 
00200500 
00210000 


DCL  IDENTIFIER 

2 A 

1 GANNA 

3 I 

3 K 
LOG 

4 RANNOL 

2 TR 

2 X 


ATTRIBUTE  TABLE 
ATTRIBUTES 

PARAMETER  ALIGNED  DEC  FLOAT  (LONG) 
ENTRY  DEC  FLOAT(SHORT) 

AUTO  ALIGNED  BIN  FIXEDdS.O) 
PARAMETER  ALIGNED  BIN  FIXEDdS.O) 
GENERIC  BUILT-IN  FUNCTION 
EXI  ENTRY  D r C FLOAT(LC;.G) 

AUTO  ALIGNED  DEC  FLOAT(LONG) 

AUTO  ALIGNED  DEC  FLOAT(LONG) 


STORAGE  REQUIREMENTS. 

THE  STORAGE  AREA  (IN  STATIC)  FOR  THE  PROCEDURE  LABELLED  GANNA  IS  228  BYTES  LONG. 
IhL  PROGRAM  CSECT  IS  NAMED  GAMMA  AND  IS  415  BYTES  LONG. 

THE  STATIC  CSECT  IS  N AMID  *»GAMMAA  AND  IS  324  BITES  LONG. 

•STATISTICS*  SOURCE  RECORDS  * 21,  PROG  TEXT  STHNTS  * 11,  OBJECT  BYTES  * 418 


COMPILER  DIAGNOSTICS. 


WARN  1NGS. 
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SANA  3501  04/14/76 

Vf  AS  I ON  S.S 


PLlC-VfcR-033078 


05/360  PL/I  COMPILE*  <F>  ON  VmOS 


page 

• ATE  73. 1< 


STMT 

1 

LEVEL 

NEST 

NORMAL:  PROCEOUfcE  (EX.STd*); 

/* 

GENERATES  NORMALLT  DISTRIBUTED  VARIATES  4 I TH  MEAN 
AND  STANDAPD  DEVIATION  "STOX*** 

♦/ 

? 

1 

DC  L <EX,STOX,S,X)  FL0ATO6); 

3 

1 

D C L I BIN  FI  XL  0 ; 

/• 

RANNOL  - INSTALLATION  PROVIDED  UNIF(0,1)  RANDOM 
NUMBER  GENERATOR* 

• / 

4 

1 

DC  L RANNOL  RETURNS  (FLO  AT (16)); 

5 

1 

S • 0.0; 

6 

1 

DO  1=1  10  12; 

7 

1 

1 

S « S ♦ RANNOL; 

8 

1 

1 

END; 

9 

1 

X * STDX * ( S - 6.0)  ♦ EX; 

10 

1 

RETURN  (X); 

11 

1 

END  NORMAL; 

00010000 
00020000 
00030000 
00040000 
OOCSOCOO 
00360300 
00373000 
00060000 
OOC 90030 
00100000 
00110300 
00123000 
00130000 
00140900 
001S0900 
00160000 
00170000 
001*0000 
00190900 
00200000 
00210000 


ATTRIBUTE  TABLE 


• CL  IDENT  I f IE  * 


ATTRIBUTES 


El 

1 

NORMAL 

RANNOL 

S 

STOX 

X 


PARAMETER  At 
AUTO  ALIGNED 
ENTRY  BIN  II 
EXT  ENTRY  OE 
AUTO  ALIGNED 
PARAMETER  AL 
AUTO  ALIGNED 


I6NED  DEC  FLOAT  (L0N6 ) 
BIN  F1XE0C15,0) 
XFD(15,C) 
c floaklongj 
DEC  FL^AT(LONG) 

1GNED  D c t FLOAT  (LONG ) 
DEC  FLOAT(LONG) 


STORAGE  REQUIREMENTS. 


THE 

THE 

THE 


storage  AREA  (JN 
program  csect  is 
STATIC  CSECT  IS 


STATIC)  FOR  THE  PROCEDURE  LABELLED  NORMAL  IS  223  BYTES  LONG* 
NAMED  NORMAL  ANO  IS  413  BITES  LONG. 

NAMED  ♦NOft'iALA  AND  IS  343  BYTES  LONG* 


•STATISTICS* 


SOURCE  RECORDS  * 21,  PROG  TEH  STMNTS 


11,  OBJECT  BITES  « 418 


COMPILER  DIAGNOSTICS* 


HANNINGS* 

ICK3S26I  1 OPTION  MAIN  HAS  NOT  BEEN  SPECIFIED  FOR  THE  EXTERNAL  PROCEDURE,  STATEMENT  NUMBER 

0 


i 
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UANA  3494  04/14/78  PLIC-VER'033078 

VERSION  5.S  OS  / 360  PL/1  COMPILER  CFI  On  VNOS 


PA  G t 

C*f(  f o 


SIM  LEVEL  NE  ST 

1 f XPGN : PROCEDUR t <CA>; 

/ • 

GENtRAUS  ExP^NENTIALd  DISTRIBUTED  VARIATES  «ITH 
MEAN  E*. 

•/ 

? 1 r>c l »Loai(16); 

/• 

RANNOL  - INSTALLATION  PRPVIOfO  UNIf(C,1)  RANDOM 
NUMBER  GENfKATOk. 

•/ 

1 DCL  PANNOL  RETUkNS  (FL0AT(16)>; 

1 p = pannGl; 

1 t s -fit  • L06(R>; 

1 RETURN  (A); 

1 END  EIPON; 


3 

4 

3 

4 
7 


coaioooo 

QOQZOOOO 
LOO 'CO 00 
00^40000 
UCjSOGOO 
0006QC00 
00070000 
LO  0*  0000 
00090CC0 
00100000 
00110000 
OO120C00 
00130000 

oououco 

OOISOOOO 

00160000 

C017OC00 


ATTRIBUTE  TABU 


0 CL  IDENTIFIER 


ATTR IBUTfcS 


2 

1 

2 

3 

2 


El 

EIPON 

LCG 

R 

RANNOL 


I 


PARAMETER  AL  16  Nf  0 OFC  f l OA  T (LONG) 
ENTRY  DEC  flOAT(SHORT) 

GENERIC  bull T ” 1 N FUNCTION 
AUTO  AtlGNtr  DEC  FLOAT(LONG) 
t * T ENTRY  DEC  FLOATClONG) 
au to  aligned  dec  flOakiong) 


STORAGE  kEGUIREMEHTS. 

the  STO«AGC  AREA  (in  STATIC)  for  THE  PROCfOURE  LABELLED  EIPON  IS  224  BITES  LONG. 
THE  PRgfRAM  CSECT  IS  N A 0 f X PO  N A NO  IS  33S  BITES  LONG. 

The  STATIC  CSECT  IS  NAMED  **EAPONA  ANO  IS  112  CITES  LONG. 

•statistics*  Source  records  * 17,  ppog  teit  stunts  * 7,  object  bites  « JJ8 


COMPILER  OIAuNOS TICS. 


WARNINGS. 

IEM0526I  1 OPTION  * A IN  HAS  NOT  BEEN  SPECIFIED  FOR  THE  EXTERNAL  PROCEDURE,  SlATEMINT  NUN0ER  1. 

END  ^ DIAGNOSTICS. 

ELAPSED  TIM  .32  '•INS 


(i  A N A 

VERSION  5.5 


3535 


04/14/76  PLiC-VlR-033078 


05/360  PL/1  COMPILE*  CP)  ON  NftOS 


PAfct 

OATf  7d.i 


5 TPT 

1 

LE  ¥EL 

Nf  S 7 

•■ATftlTD:  PROCEDURE  C»  , A ,ft  , * , N ,1  > ; 

•/• R C ft  , L ) * ACft.N)  • BCk.O ♦/ 

00010000 
00  C 70000 

? 

1 

DCl  (•»<•»  *),A(*,*),b(*i*)fS)  blN  PL0ATCS3); 

oocruooo 

? 

1 

DC  L C 1 , 4 ,K  ,ft  ,N  ,L  ) BIN  f I * E D ; 

00C40C0Q 

A 

1 

DO  1 = 1 10  ft; 

OOGSGGOO 

5 

1 

1 

00  4*1  TO  l; 

00360000 

6 

1 

2 

RC 1 , 4)  * o.; 

DOG  TOC 00 

7 

1 

2 

end; 

00030000 

• 

1 

1 

end; 

OOG 40000 

9 

1 

DO  1*1  10  ft; 

OOICOOOO 

10 

1 

1 

DO  4=1  TO  l; 

00110000 

1 1 

1 

2 

DO  K =1  TO  N; 

G0 1 20000 

1? 

1 

3 

R Cl  , 4>=A ( ] ,k)  n U , J) ♦»  C * ,4) ; 

G011U0G0 

13 

1 

3 

END; 

ocuoooo 

14 

1 

2 

END; 

GO  1 500G0 

1 5 

1 

1 

END; 

00160000 

16 

1 

RETURN; 

00170000 

1 7 

1 

PATAOCC:  ENTRI  (»,A,B,ft,N>; 

/* H C M « N ) * A C N » N ) ♦ B CM  « N) ♦/ 

OO10OCOO 

00190000 

1 8 

1 

DO  1*1  TO  ft; 

00200000 

19 

1 

1 

DO  J»1  TO  N; 

00210000 

20 

1 

2 

RCl  ,J  ) * ACI , j )«d(l .4); 

0O220COO 

21 

1 

c 

END; 

00230000 

2? 

1 

1 

END; 

00240000 

23 

1 

RE  TURN; 

00250000 

24 

1 

•ATSU?D : ENTRY  < * . A , B , ft  , N ) ; 

/• R C ft  , N ) * ACft.N)  - B ( ft , N) •/ 

00260000 

00270000 

25 

1 

00  1*1  TO  ft; 

00 i *0000 

26 

1 

1 

DO  4*1  TO  N; 

00290000 

27 

1 

2 

R C 1 f 4 ) * A C 1 « 4 ) - B (1 , J) ; 

00  300000 

2 • 

1 

2 

END; 

0031UCOO 

29 

1 

1 

END; 

00  320C00 

30 

1 

RE  TURN; 

00330000 

31 

1 

•’ATCQD:  ENTRY  CR  , A, ft ,N  ); 

/•  RCft,N)  * ACft.N)  — */ 

00340000 

00350300 

32 

1 

DO  1=1  TO  ft; 

00360000 

33 

1 

1 

DO  4*1  TO  N ; 

00370300 

34 

1 

2 

RCl, 4 ) * ACI  ,4); 

00350000 

36 

1 

2 

END; 

00390000 

36 

1 

1 

end; 

00400000 

37 

1 

RETURN; 

00410000 

38 

1 

TRANSPD:  ENTRY  CR,A,ft,N); 

/• R C N , ft  ) * A C ft  , N ) •/ 

C0420030 

00430000 

39 

1 

DO  1*1  TO  ft; 

00440000 

40 

1 

1 

DO  4*1  TO  N ; 

00450000 

41 

1 

2 

R C 4 , 1 )*A  C 1 ,4  ); 

00460000 

42 

1 

2 

END; 

00470000 

43 

1 

1 

END; 

004S0G00 

44 

1 

RE  TURN; 

00490000 

45 

1 

<C  AftA  TO  : ENTRY  C*,S,A,ft,N); 

/* R C ft  , N ) * 5 • A C ft  , N ) •/ 

305C0C00 

00510000 

- 


HflB 


*'7'  • 


■'"A.V' 
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uANA  3505  04/14/78  PL1C-VER-P3SG74 

S T»T  l f V f L NEST 


4 A 1 001  = 110"; 

4 7 1 1 DO  H 10  s; 

4*  1 2 M1,J  )*S*A(|,4); 

49  1 4.  END; 

50  1 1 end; 

51  1 END  NATUCID; 


QOS 20000 
GOS50COO 
OCS4GOOO 
Q0S5QC30 
C0S6GC00 
00  S 70000 


I' Cl  IDENTIFIER 


ATTRIBUTE  TABLE 
AT  19  jyuTES 


2 A 

2 a 

3 i 

3 J 

3 K 

3 L 

3 M 

17  MATA0OO 

51  PATEfcD 

1 "A |«L TO 

2 4 MATSUbD 

3 N 

2 R 

2 S 

4 S SCANATO 

3?  TPANSPD 


<*.*>  PARAMETER  ALIGNED  BIN  EL  OAT (LONG) 
(•,')  PARAMETER  A L 1 r N c D BIN  ILOHlLONt) 
All  I ) AlIGNtO  BIS  fI*cO<1S,0> 

AUTO  ALICNET  PIN  fl*t 0(15,0) 

AU I ^ ALIGNED  BIN  EI*tD<15,0> 

PARAvfUR  ALIGNED  b T N MXfcDU5,0> 
PA«»V|£B  ALIGNED  blN  ElXEOdS.O) 

ENT*Y  blN  E lXFC(1StP) 

ENl®Y  blN  f!AE0<3S»C) 

INfBT  bfN  f mo(i5,o 
l N T " T GIN  f 1110(15,’*) 

PA»«'*.MfG  ALIGNED  blN  f1XED<15,0> 

<•»•>  PARAMETER  A l I G u ED  BIN  EL0AT(L0N6) 
PARAMETER  ALIGNED  BIN  flOAT(LONG) 

EN I p T DEC  ElOATTSHORI  ) 

ENTRY  DEC  ElGATfSHORT) 


STORAGE  RETIREMENTS. 

T*-E  STORAGE  ALE  A (IH  STATlO  TO*  THE  PROCEDO-f  LABELLED  MATNLlD  IS  300  BYTES  LONG  • 
THE  PR  OGRAn  CSECT  IS  NAMcD  "ATnLTD  AnO  IS  2194  oYTlS  LONG. 

THE  STATIC  CSECT  IS  NAMED  M A T Ml T f A AND  IS  420  PITES  LONG. 

♦STATISTICS*  SOUKCE  RECORDS  * 57,  PR06  TEXT  STUNTS  * 51,  OBJECT  BYTES  » 219G 


COMPILER  DIAGNOSTICS. 


WARN  INGS. 

I E NO  5?  6 I 1 OPTION  MAIN  HAS  NOT  BflN  SPECIFIED  TOP  THE  il  T l R SAL  PPOCEDU*E.  STATEMENT  NU" 8 E R 1. 

x END  Of  DIAGNOSTICS. 

ELAPS'D  TIME  .05  MINS 


| 

I 

I 
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f 


to  AN  A 

3504 

OC/U/TS  PL  IC-Vt«-PJ1078 

Vf US  I Ch 

S.S 

03/360  PL/1  C OMP ILIA  <f)  ON  VNQS 

STM 

LEVEL 

Nl  ST 

1 

"AlVFtB:  POOCIDLOE  <»  . * .3,1*.  N)  J 

00010000 

/• k<*l>  * MA,M)  * UCN) •/ 

00020000 

2 

1 

tCL  AC*,*), tC*),S)  iilN  f l OA 1 < 5T)  ; 

00030000 

5 

1 

OCL  < l , J ,rt  , u ) BIN  flXID; 

00040000 

A 

1 

DO  1 1 TO  N; 

00050000 

1 

1 

R<!>»0.; 

00060000 

6 

1 

1 

end; 

00070000 

7 

1 

DO  1*1  TON; 

oOOfeOOOO 

A 

1 

1 

DC  J*1  TO  N; 

00G900C0 

9 

1 

2 

Mi)  * Ml)  ♦ 

00100000 

10 

1 

2 

END; 

00110000 

1 1 

1 

1 

END; 

00120000 

1? 

Rl TUAN; 

00130000 

1 » 

1 

VECVECD:  ENTRV  (S.B.A.N); 

00140000 

/♦ S * OCN)  * R (H) •/ 

00150000 

14 

1 

S*o.; 

00160000 

1 5 

1 

00  1*1  TO  n; 

00170000 

16 

1 

1 

S*S#b(l )•«(!); 

00130000 

1 7 

1 

1 

end; 

00190000 

1« 

1 

return; 

00200000 

19 

1 

00810000 

/.  — mN)  » bin)  • M*,h>  — •/ 

00220000 

80 

1 

DO  J*1  TO  n; 

00830000 

21 

1 

1 

RCj)  = 0.; 

00240000 

2? 

1 

1 

CO  1*1  ro  H ; 

00250000 

23 

1 

2 

»< J ) * l(J)  • e ( I )♦» (I , J ) ; 

00260000 

24 

1 

2 

£ NO; 

00270000 

25 

1 

1 

end; 

00260000 

2A 

1 

RE  TURN; 

00290000 

27 

1 

VECL  E NO : £*!»»  (S.B.N); 

c.03rocoo 

/• S * libit  — •/ 

00310000 

23 

1 

S * 0.; 

00320000 

29 

1 

DO  1*1  TO  n; 

00330000 

30 

1 

1 

s = s « B<n*e(i>; 

00340000 

31 

1 

1 

end; 

00350000 

32 

1 

S * SfiRT(S); 

00360000 

33 

1 

RETURN; 

00370000 

34 

1 

SCAVECC:  ENICY  (C.SiB.N ); 

00380000 

/• «(N>  * S *P  EN ) */ 

00390000 

35 

1 

CO  1*1  TO  *; 

004C0000 

36 
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